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v„ ement  to  the  Engineering,  User's, 

and  Systems  manuals  prepared  for  the  Antenna  Modeling 
Program  (AMP),  This  document  describes  the  operation, 
theory,  and  coding  of  the  changes  made  to  AMP  in  order  to 
decrease  the  running  time  for  large  voluminous  structures 
with  wire  appendages.  The  options  incorporated  are  surface 
modeling  with  surface  patches  as  an  alternative  to  wire  grid 
modeling,  and  the  use  of  approximate  structure  matrix  elements 
where  appropriate.  In  addition,  an  option  for  the  precautionary 
dumping  of  tefriporary  file  storage  is  included. 

The  AMP  code  as  modified  (AMP2)  has  been  implemented 
on  the  Naval  Ship  Engineering  Center  CDC  6700  and  has  been 
delivered  to  the  Naval  Research  Laboratory,  U.  S.  Army 
Strategic  Communications  Command,  and  the  Rome  Air  Develop- 
ment Center, under  the  Office  of  Naval  Researcn  Contract 
N0001  4-71 -C%187.  The  program  is  under  the  direction  of 
E.  S.  Selden  an\  G.  J.  Burke  of  MBAssociates  and  M.  L. 

Mus selman  and  rS  K.  Royce  of  Naval  Research  Laboratory. 
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The  Hybrid  Wire-Surface  Program  (AMP2)  described  in  this 
manual  is  an  extension  of  the  basic  Antenna  Modeling  Program  (AMP) 
detailed  in  references  1,  2,  and  3 with  the  added  capability  of  modeling 
surfaces  of  voluminous  conducting  bodies  via  the  magnetic  field  integral 
equation.  The  program  can  be  used  with  wires  alone  in  the  same  way  as 
AMP  employing  tne  thin  wire  form  of  the  electric  field  integral  equation 
(EFIE).  When  modeling  voluminous  bodies,  surfaces  are  represented  by 
patches  on  which  the  surface  currents  are  computed  from  the  magnetic 
field  integral  equation  (MFIE).  Any  number  of  wires  and  surfaces  may 
be  included  in  a model  with  mutual  interactions  computed  by  a hybrid  of 
the  MFIE  and  EFIE.  Wires  may  be  connected  to  surfaces  at  the  centers 
of  surface  patches  althougn  not  at  edges.  The  program  may  also  be  used 
with  surfaces  alone,  but  only  for  scattering  calculations  since  voltage 
sources  may  be  applied  only  on  wires. 

The  basic  program  AMP,  using  the  thin  wire  form  of  the 
EFIE,  can  be  used  to  model  surfaces  by  use  of  wire  grids.  The  MFIE, 
however,  has  been  found  to  yield  more  accurate  results  with  less  compu- 
tation time  than  wire  grid  modeling  for  voluminous  structures.  Also 
fewer  decisions  are  required  of  the  user  in  modeling  a surface  with  patches 
than  in  choosing  the  locations  and  directions  of  wires  in  a grid.  There  are 
limitations,  however,  in  the  types  of  surfaces  that  can  be  modeled  by  the 
MFIE.  Tne  surface  must  be  closed,  such  as  that  representing  a thick 
solid  body.  Thin  bodies,  such  as  conducting  plates  cannot  be  modeled  with 
the  MFIE  since  two  parallel  surfaces  close  together  (the  front  and  back) 
will  result  in  severe  numerical  errors. 

In  addition  to  surface  modeling,  program  AMP2  provides  two 
other  options  not  in  the  basic  program  AMP.  The  time  for  matrix  filling 
can  be  reduced  by  the  use  of  an  approximation  when  the  interaction  distances 
are  greater  than  a specified  value.  In  addition  a time  interval  can  be  specified 
at  which  intermediate  results  will  be  dumped  to  file  storage  to  permit 
restarting  the  program  after  a machine  failure.  Execution  continues  after 
each  such  dump. 
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This  manual  contains,  first,  instructions  for  use  of  the  new 
features  of  program  AMP2  not  found  in  program  AMP.  Section  2 together 
with  the  Antenna  Modeling  Program  Users  Manual  (reference  1)  should 
provide  all  information  necessary  for  use  of  the  program.  The  remainder 
of  the  manual  covers  the  formulation  of  the  surface  modeling  method  and 
details  of  the  program  coding  which  differ  from  the  basic  program  AMP. 
These  sections  supplement  the  Antenna  Modeling  Program  Engineering 
Manual  (reference  2)  and  Systems  Manual  (reference  3)  respectively. 
Included  also  is  a complete  list  of  the  AMP2  code  in  section  7. 


2.0  PROGRAM  OPERATION 


The  basic  information  needed  to  use  program  AMP2  is  contained 
in  the  AMP  Users  Manual  (reference  1).  This  section  contains  supple- 
mentary instructions  and  information  for  using  AMP2  to  model  surfaces. 
When  used  to  model  structures  with  wires  only,  the  operation  of  program 
AMP2  is  identical  to  that  of  program  AMP.  The  one  exception  is  that 
AMP2  uses  a time  saving  approximation  in  filling  the  interaction  matrix 
for  interaction  distances  greater  than  one  wavelength.  For  results  identical 
to  those  of  AMP  in  all  digits  printed,  this  approximation  range  should  be 
increased  to  greater  than  the  maximum  structure  dimension  in  wavelengths 
by  use  of  a KH  card. 

When  surfaces  are  included  in  a model  they  are  represented  by 
small  flat  surface  patches  corresponding  to  the  segments  used  to  model 
wires.  Two  new  types  of  data  cards  may  be  used  in  the  structure  geometry 
input  to  specify  surfaces.  These  are  described  in  section  2.  3.  The 
program  operation  with  surfaces  is  otherwise  identical  to  that  of  program 
AMP  with  tne  exception  that  the  following  options  are  not  available  when 
surfaces  are  modeled: 

near  field  calculation 

imperfect  ground  (perfect  ground  is  allowed) 
ground  wave  in  the  radiated  field. 


In  addition,  voltage  sources  and  impedance  loading  may  not  be  applied 
on  surface  patches. 

2.  1 SURFACE  MODELING 

A conducting  surface  is  modeled  by  means  of  multiple  small 
flat  surface  patches  corresponding  to  the  segments  used  to  model  wires. 
The  patches  are  chosen  to  completely  cover  the  surface  to  be  modeled, 
conforming  as  closely  as  possible  to  curved  surfaces.  The  parameters 
defining  a surface  patch  are  tne  Cartesian  coordinates  of  the  patch 
center,  the  components  of  the  outward  directed  unit  normal  vector  and 
the  patch  area.  These  are  illustrated  in  figure  1 (a)  where  r0  = x0  x + 

A A A A A 

y0  y + zQ  z is  the  position  of  the  segment  center,  n=n  x + n y + 

A x y 

n z is  the  unit  normal  vector  and  A is  the  patch  area.  The  shape  of 
z 


' 
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(b)  Connection  of  a wire  to  a surface  patch 


FIGURE  1 

SURFACE  PATCH  GEOMETRY 
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the  patch  (square,  rectangular,  etc.  ) is  not  specified  since  there  is  no 
integration  over  the  patch  unless  a wire  is  < onnected  to  the  center. 

The  program  computes  the  surface  current  on  each  patch  along  the 

A A _ . 

orthogonal  unit  vectors  tj  and  t^  which  are  tangent  to  the  surface.  These 
are  chosen  by  the  program  according  to  the  following  rules: 

1.  For  a horizontal  patch 


2.  For  a non-horizontal  paten 
tj  = (z  X n)/|  z x nj 

t2  = n X tj 

When  a structure  having  plane  symmetry  is  formed  by  reflection  in  a^ 
coordinate  plane  using  a GX  input  card  (see  reference  1)  the  vectors  tj 

A A 

t and  n are  also  reflected  so  that  the  new  patches  will  have  t = - n X t.. 

2 4 


When  a wire  is  connected  to  a surface  the  wire  must  end  at  the 
center  of  a patch  with  identical  coordinates  used  for  the  wire  end  and  the 
patch  center.  Tne  program  then  divides  the  patch  into  four  equal  patches 
about  tne  wire  end  as  shown  in  Figure  1(b)  where  a wire  has  been  connected 
to  the  second  of  three  previously  identical  patches.  The  connection  patch 
is  divided  along  lines  defined  by  the  vectors  t^  and  t^  for  that  patch  with 
a square  patch  assumed.  The  four  new  patches  are  ordinary  patches  like 
tnose  input  by  the  user,  except  when  the  interactions  between  these  patches 
and  the  lowest  segment  on  the  connected  wire  are  computed.  In  tnis  case  an 
interpolation  function  is  applied  to  the  four  patches  to  represent  tne  current 
from  the  wire  onto  the  surface,  and  the  function  is  numerically  integrated 
over  the  patches.  Thus,  the  shape  of  tne  patch  is  significant  in  this  case. 
The  user  should  try  to  choose  patches  so  that  those  with  wires  connected 
are  approximately  square  with  sides  parallel  to  tj  and  t^.  The  connected 
wire  is  not  required  to  be  normal  to  tne  patch,  but  cannot  lie  in  the  plane 
of  the  patch. 
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As  with  wire  modeling,  patch  size  measured  in  wavelengths  is 


very  important  for  accuracy  of  tne  results.  A minimum  of  about  25 
patches  should  be  used  per  square  wavelength  of  surface  area,  with  the 
maximum  size  for  an  individual  patch  about  0.  04  square  wavelengths. 

Large  patches  may  be  used  on  large  smooth  surfaces  while  smaller  patches 
are  needed  in  areas  of  small  radius  of  curvature,  both  for  geometrical 
modeling  accuracy  and  for  accuracy  of  the  integral  operation  solution. 

For  the  specific  case  of  an  edge,  a precise  local  representation  cannot 
be  included;  however,  smaller  patches  in  the  vicinity  of  the  edge  can 
lead  to  more  accurate  results  since  the  current  magnitude  may  vary  rapidly 
in  this  region.  Since  connection  of  a wire  to  a patch  causes  the  patch  to 
be  divided  into  four  smaller  patches  a larger  patch  may  be  input  in  anti- 
cipation of  the  subdivision. 

While  patch  shape  is  not  input  to  the  program,  very  long  narrow 
patches  should  be  avoided  when  subdividing  the  surface.  This  is  illustrated 
by  the  two  methods  of  modeling  a sphere  shown  below. 


Uniform  segmentation  Variable  segmentation 

The  first  uses  uniform  divisions  in  azimuth  and  equal  cuts  along  the 
vertical  axis.  This  results  in  all  patches  having  equal  areas  but  with 
long  narrow  patches  near  the  poles.  In  the  second  method  the  number  of 
divisions  in  azimuth  is  increased  toward  the  equator  so  that  the  patch 
length  and  width  are  kept  more  nearly  equal.  The  areas  are  again  kept 
approximately  equal.  The  results  of  tne  two  segmentations  are  shown  in 
Figure  2 for  scattering  by  a sphere  of  ka  (2  TTx  radius /wavelengtn)  equal 
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to  5.  3.  The  uniform  segmentation  used  14  increments  in  azimuth  and 
14  equal  bands  along  the  vertical  axis.  The  variable  segmentation  used 
13  equal  increments  in  arc  length  along  the  vertical  axis  with  each  band 
from  top  to  bottom  divided  into  the  following  number  of  patches  in 
azimuth:  4,  8,  12,  16,  20,  24,  24,  24,  20,  16,  12,  8,  4.  Much  better 
agreement  with  experiment  is  obtained  with  tne  variable  segmentation. 

In  general,  the  use  of  surface  patches  is  restricted  to  modeling 
voluminous  bodies.  The  surface  modeled  must  be  closed  since  the 
patches  only  model  the  side  of  the  surface  from  which  their  normals  are 
directed  outward.  A single  wire  grid,  in  contrast,  can  model  both  sides 
of  the  surface  that  it  forms.  If  a somewhat  thin  body,  such  as  a box  with 
one  narrow  dimension,  is  modeled  with  patches  the  narrow  sides  (edges) 
must  be  modeled  as  well  as  tne  broad  surfaces.  Furthermore  the  parallel 
surfaces  on  opposite  sides  cannot  be  too  close  together  or  severe  numerical 
error  will  occur. 

2.  2 EXECUTION  TIME 

The  program  execution  time  depends  on  the  number  of  patches 
and  the  number  of  wire  segments  used.  Tne  central  processor  time 
approximately  follows  tne  formula 

T = T + T +T  +T 

i 1 l 2 3 4 

T,  = (A.kN  2 + A0kN  2 + A,kN  N + A N )/M 
11s  2 p 3sp  4 c 

T-  = B (N  + 2N  )3/M2 

2 s p 

T,  = CN  -(N  + 2N  )2/M 

3 e s p 

T . = DkNf  (N  + 2N  ) 

4 f s p 

where 

Ng  = number  of  wire  segments 

Np  = number  of  surface  patches 

N = number  of  connections  between  a wire  and  a surface 
c 

N = number  of  different  excitations 
e 

Nj.  = number  of  far  field  calculation  points 

M = number  of  degrees  of  symmetry 

k = 1 if  structure  is  in  free  space 
2 if  structure  is  over  ground 
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Tj  is  the  time  to  fill  the  interaction  matrix;  is  the  time  to  factor  the 
matrix;  is  the  time  to  solve  for  the  currents  for  all  excitations  and  T 4 
is  the  time  to  calculate  far  fields. 

The  proportionality  factors  depend  on  the  computer  system  on 
which  the  program  is  run.  The  factors  in  seconds  for  a CDC  6600  computer 
with  the  program  compiled  under  the  Run  compiler  and  the  matrix  fitting 
in  core  are  roughly 

Al  = 2.  (10'3) 

A2  = 3.  (10'4) 

A3  = 3.  (10" 3) 

a4  = i.  do'1) 

B = 5.  (10‘6) 

C = 2.  (10" 5) 

D = 3.  (10-4) 

Unless  a large  number  of  excitations  or  far  fields  are  requested,  T^  and 
T will  account  for  nearly  all  of  the  running  time.  If  the  matrix  does  not 
fit  in  core  Tj  and  T2  will  be  larger  than  indicated  above. 

If  the  matrix  fill  approximation  is  used  for  interaction  distances 
greater  than  Rg  (RKH  = R0/\)  then  A^  is  multiplied  by  (1.  - 0.  7 R^) 
and  A^  is  multiplied  by  (1.  - 0.  5 R^)  where  R^  is  the  fraction  of  all  segment 
pairs  for  which  the  separation  is  greater  than  R0  and  R^  is  the  fraction  of 
all  segment-patch  pairs  for  which  the  separation  is  greater  than  R0- 
2.  3 NEW  INPUT  CARDS 

All  input  cards  described  in  the  AMP  User's  Manual  may  be 
used  in  program  AMP2.  In  addition  two  new  cards  have  been  added  for 
input  of  surface  patches,  one  card  for  selecting  the  distance  at  which  the 
approximate  interaction  formula  is  applied,  and  one  for  setting  the  time 
interval  between  precautionary  dumps  of  intermediate  results  to  permit 
restarting  the  computation.  When  surface  patches  are  input  the  cards 
GM,  GX,  GR  and  GS  for  moving  duplicating  or  scaling  a structure  act  on 
patenes  as  well  as  on  wire  segments  as  described  in  reference  1.  All 
patches  input  before  the  GM,  GX,  GR  or  GS  card  is  encountered  will  be 
affected.  Since  patches  do  not  have  the  tag  numbers  that  segments  have 
the  GM  card  must  act  on  all  patches  input  before  its  occurrence. 
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The  number  of  patches  and  segments  that  may  be  used  in  a model 
is  limited  by  program  dimensions.  If  the  number  of  segments  is  N and 
the  number  of  patches  then  the  standard  limits  in  the  program  are 

N + N s 1000  if  N s 500 
s p p 

N + 3 N s 2000  if  N > 500 
s P p 

The  new  input  cards  are  described  on  the  following  pages. 
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SURFACE  PATCH  (SP) 

PURPOSE:  to  input  the  parameters  of  a single  surface  patch 


PARAMETERS: 

INTEGERS  - None 


DECIMAL  NUMBERS 

XC  (FI)  - x,  y and  z coordinates 

YC  (F2)  - of  the  center  of  the 

ZC  (F3)  - patch 

AL  (F4)  - elevation  angle  above  the  x - y plane  of 

the  outward  normal  to  the  patch  (degrees) 
BT  (F5)  - angle  from  the  x axis  to  the  projection  of 

the  outward  normal  of  the  patch  onto  the 
x - y plane  (degrees) 

AR  (F6)  - area  of  the  patch  (units  are  the  square  of 

the  units  used  for  XC,  YC,  and  ZC) 


NOTES: 

• The  use  of  AL  and  BT  in  defining  the  normal  to  a patch  is 
illustrated  in  the  figure  below.  For  a horizontal  patch 
AL  = 90.  and  BT  = 0. 


L 


NOTES: 

• SP  cards,  if  used,  must  occur  in  the  section  of  geometry 
data  cards  --  after  the  comment  cards  and  before  the  GE 
card.  They  may  be  intermixed  with  cards  specifying  wires 
and  any  other  geometry  data  cards. 

• At  the  end  of  structure  geometry  input  the  patch  coordinates, 
like  the  wire  coordinates,  must  be  in  meters.  If  other  units 
are  used  for  input  they  may  be  scaled  by  use  of  a GS  card 
which  scales  both  patch  dimensions  and  wire  dimensions. 
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PURPOSE:  to  cover  a flat  surface  with  multiple  patches  by  reproducing 
the  previous  patch  input  with  shifts  in  the  X and  Y directions. 

CARD: 


PARAMETERS: 

INTEGERS 

NX  (II)  - the  previous  patch  input  is  reproduced 

NX  times  with  increments  in  the  X direction 
NY  (12)  - the  previous  patch  input  is  reproduced  NY 

times  with  increments  in  the  Y direction 
DECIMAL  NUMBERS 

DX  (FI)  - X coordinate  increment  for  reproduced 

patches 

DY  (F2)  - Y coordinate  increment  for  reproduced  patches 


I 


NOTES: 

• T tie  surface  generated  by  a SS  card  is  NX  + 1 patches  wide 
in  the  X direction  and  NY  + 1 patches  wide  in  the  Y direction 
The  patch  is  first  reproduced  NX  times  in  the  X direction 
with  increment  DX.  The  Y coordinate  is  then  incremented 
and  NX  + 1 patches  are  generated  adjacent  to  the  first  row 
in  the  X direction.  This  process  is  repeated  NY  times. 

The  patch  reproduced  may  have  any  orientation  (which  is 
maintained  in  the  new  patches)  so  the  SS  card  may  be  used 
to  generate  both  the  top  and  sides  of  a box.  The  SS  card 
will  not  shift  patches  in  the  Z direction,  however. 
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• The  increments  DX  and  DY  must  be  consistent  with  the 
area  of  the  patch  reproduced  so  that  the  sum  of  the  areas 
of  all  patches  is  equal  to  the  area  of  the  total  surface 
covered. 

• The  GM  card  may  also  be  used  to  reproduce  patches  with 
an  arbitrary  direction  of  shift  but  it  operates  on  all  patcnes 
and  wires  input  before  the  GM  card. 
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INTERACTION  APPROXIMATION  RANGE  (KH) 

PURPOSE:  to  set  toe  minimum  separation  distance  for  use  of  a time 
saving  approximation  in  filling  the  interaction  matrix. 


PARAMETERS: 


INTEGERS  - none 
DECIMAL  NUMBERS 

RKH  (FI)  - The  approximation  is  used  for  interactions 

over  distances  greater  than  RKH  wavelengths. 

NOTES: 

• If  two  segments  or  a segment  and  a patch  are  separated 
by  more  than  RKH  wavelengths  the  interaction  field  is 
computed  from  an  impulse  approximation  to  the  segment 
current.  The  field  of  a current  element  located  at  the 
segment  center  is  used.  For  separations  less  than  RKH 
a current  interpolation  function  is  integrated  over  the 
segment  length  as  in  the  basic  AMP  program.  No  approxi- 
mation is  used  for  the  field  due  to  the  surface  current  on 

a patch  since  the  time  for  the  standard  calculation  is  very 
short. 

• The  KH  card  can  be  placed  anywhere  in  the  data  cards 
following  the  geometry  cards  (with  FR,  EX,  LD,  etc.  ) 

and  affects  all  calculations  requested  following  its  occurrence. 
The  value  of  RKH  may  be  changed  within  a data  set  by 
use  of  a new  KH  card. 


• If  no  KH  card  is  used  RKH  has  a default  value  of  one 
wavelength.  Hence  to  exactly  duplicate  a run  with  the 
basic  program  AMP  a KH  card  should  be  used  with  RKH 
greater  than  the  maximum  structure  dimension. 

• The  minimum  value  of  RKH  which  can  be  used  to  obtain 
results  within  a few  percent  of  the  no  approximation 
case  seems  to  depend  to  some  extent  on  the  structure 
size,  type,  segmentation,  and  excitation.  Values  of 
.25  wavelengths  or  less  have  been  found  acceptable  for 
symmetrically  excited  structures  and  electrically  small 
wire  grids;  on  the  other  hand,  values  up  to  . 5 wavelengths 
have  been  required  for  very  asymmetrically  fed  structures. 
No  exact  guidelines  have  been  developed  for  RKH;  therefore, 
it  is  best  to  experiment  on  any  given  problem  type  if  a 
minimum  value  is  desired.  RKH  should  never  be  less 

than  the  length  of  the  longest  segment,  however. 

! 
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FILE  DUMP  TIME  INTERVAL  (DP) 

PURPOSE:  to  set  the  time  interval  between  automatic  dumps  of  file 

storage  to  permit  restarting  the  program  after  a machine 
failure. 


CARD: 


PARAMETERS: 

INTEGERS  - None 


NOTES: 


DECIMAL  NUMBERS 

TMDUM  (FI)  - Time  interval  in  seconds  between  dumps 
of  file  storage 


• Use  of  a DP  card  will  produce  a dump  of  the  program  files 
every  TMDUM  seconds  during  the  filling  and  factoring  of 
the  interaction  matrix.  These  are  the  most  time  consuming 
operations  in  the  program.  After  the  matrix  has  been 
factored  no  additional  dumps  will  occur.  If  the  structure 
being  run  is  small  enough  to  run  without  file  storage  no 
dumps  will  occur. 

• File  17  to  which  the  files  are  dumped  must  be  requested 
as  a magnetic  tape  or  other  permanent  storage  device 
by  a control  card. 

• Instructions  for  restarting  a run  from  the  file  dump  are 
given  in  Appendix  B of  reference  1. 
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2.  4 PROGRAM  OUTPUT 

The  program  output  is  basically  the  same  as  that  for  program 
AMP,  described  in  reference  1,  with  some  additional  data  printed  for 
surface  patches.  The  new  data  pertaining  to  patches  is  illustrated  in  the 
sample  case  in  section  2.  5. 

Under  STRUCTURE  SPECIFICATION  the  surface  patch  cards 
are  listed  with  the  patches  numbered  sequentially  under  the  heading 
WIRE  NO.  Patch  numbers  are  followed  by  a P to  distinguish  them  from 
wires,  which  are  numbered  separately.  Following  the  patch  number,  the 
x,  y and  z coordinates  of  the  patch  center  are  printed  under  the  headings 
XI,  Yl,  and  Zl.  Next  the  angles  a and  j3  . defining  the  normal  to  the  patch, 
are  printed  under  the  headings  X2  and  Y2  respectively.  Finally  the  patch 
area  is  printed  under  the  heading  RADIUS.  The  other  columns  used  for 
wire  data  are  blank  for  patches. 

Following  SEGMENTATION  DATA,  a block  labeled  SURFACE 
PATCH  DATA  is  printed  with  the  x,  y and  z coordinates  of  the  patch 
center;  the  x,  y and  z components  of  the  unit  normal  vector  and  the  patch 
area.  Also  printed  are  the  x,  y and  z components  of  the  unit  tangent 

A A 

vector  tj  under  the  headings  XI,  Yl  and  Zl,  and  t^  under  the  headings 
X2,  Y2,  and  Z2. 

Following  the  printing  of  frequency  the  value  of  RKH  is  printed 
in  the  format 

APPROXIMATE  INTEGRATION  EMPLOYED  FOR  SEGMENTS 
MORE  THAN  "RKH"  WAVELENGTHS  APART. 

Finally,  following  the  segment  current  data,  is  a block  labeled 
SURFACE  PATCH  CURRENTS.  This  lists,  for  each  patch,  the  coordinates 
of  the  patch  center  in  wavelengths,  the  patch  area  in  square  wavelengths 
and  the  surface  current  density  in  amps  per  meter.  The  surface  current 

A A 

is  given  both  as  surface  components  along  the  vectors  t^  and  t^  in  magni- 
tude and  phase,  and  as  x,  y and  z components  in  real  and  imaginary  parts. 
The  remainder  of  the  output  is  the  same  as  for  the  standard  program  AMP. 

2.  5 SAMPLE  CASE 

As  an  example  of  the  use  of  the  program  for  surfaces  and  wires 
the  input  cards  and  resulting  output  are  shown  on  the  following  pages  for 
a cylinder  with  a wire  antenna  and  another  parasitic  wire  element  attached. 
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The  cylinder  is  generated  by  first  specifying  three  patches  in  a column 
centered  on  the  x axis  as  shown  in  figure  3(a).  A GM  card  is  then  used 
to  produce  a second  column  of  patches  rotated  about  the  z axis  by  30 
degrees.  A patch  is  then  added  to  the  top  and  another  to  the  bottom  forming 
parts  of  the  end  surfaces.  The  model  at  this  point  is  shown  in  figure  3(b). 
Next  a GR  card  is  used  to  rotate  this  section  of  patches  about  the  z axis 
to  form  a total  of  six  similar  sections,  including  the  original.  A patch 
is  then  added  to  the  center  of  the  top  and  another  to  the  bottom  to  form 
the  complete  cylinder  shown  in  figure  3(c).  Finally  two  GW  cards  are 

used  to  add  wires  connecting  to  the  top  and  side  of  the  cylinder.  The 
patches  to  which  the  wires  are  connected  are  divided  into  four  smaller 
patches  as  shown  in  figure  3(d).  Although  patch  shape  is  not  input  to  the 
program,  square  patches  are  assumed  at  the  base  of  a connected  wire 
when  integrating  over  the  surface  current.  Hence  a more  accurate 
representation  of  the  model  would  be  as  shown  in  figure  4 where  the 
patches  to  which  wires  connect  are  square  with  equal  areas  maintained 
for  all  patches  (before  subdivision).  The  remaining  data  cards  scale 
the  structure  by  a factor  of  0.  01,  specify  a frequency  of  465.  84  MHz, 
specify  a unit  voltage  source  at  the  base  of  the  wire  on  the  top  of  the 
cylinder  and  request  computation  of  a radiation  pattern. 
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SAMPLE  CASE  DATA  CARDS 


ANTENNA  MODELING  PROGRAM 


C#L  InOFR  *?T*  ATT  %C**f  rl  ■I’CS. 


- - - STRUCTURE  SPECIF  If  AT  ION 


coordinates  must  he  input  in 
mMEMS  )w  HF  SCALED  10  ME  It  PS 
-MON i STNUCFUNF  INPUT  IS  En(>EO 


•I  »l  2 1 #2  1 1 

|P  10.0300*  0.00000  7.33))*  0.00000  0.00000 

2*  10. 00000  0.00000  0.00000  0.00000  0.00000 

ip  io.joooo  o.ooooo  -7.33330  0.00000  0.00000 

T-F  STB*  if  Ti-F  -AS  4FEN  MOVfO.  <4(Wf  DATA  CABO  IS  - 

•0  I 0.00000  O.OOOuO  10.00)00  -0.00000  -o.ooooo 


TP  6.490C0  0.00000  ll.oouno 

«p  6.4900*  0.00000  -11.00000 

STPi/CTuPf  »nj*nn  ABOUT  /-4*|S  4 Til 

-VP  0.00000  0.00000  11.00000 

SOP  0.00000  0.00000  -11.00000 

1 O.OOOOO  0.00000  11.00000 

2 10.00000  0.00000  o.ooooo 

STRUCTURE  SCALED  *♦  FACTOR  .0100') 


90.00090  0.00000 

-00.00000  0.00000 

II" fS.  LA4LFS  KCRFMFMFO  HI 


FIRST  LAST 
Sir-.  Sib. 


0.00000  -0.00000 

44.14000 


TOTAL  SF&m*  NTS  USED* 
TOTAL  PATCHES  USED* 


NO.  SFG.  IN  A SYMMETRIC  CELL- 
NO.  PATCHES  in  « STMMfTOIC  CFLL- 


STMMFTBT  flag- 


- segment  AT ION  OATA  - - 
COORDINATES  |N  MPTEMS 


I • ANO  I-  INDICATE  ThE  SFf.MfNTS  HEE  Om(  AND  AFTER  I 


COORDINATES  OF  SEG.  CfNIFM 


OM I F N T AT  I ON  ANGLES  mIRC  CONNECTION  OATA 
AI.PMA  MET  A MAO  I US  |.  | |. 

<40.00000  0.00000  .00100  10*42  I » 

90.0000*  0.00000  .00100  | 2 3 

90.0000*  0.00000  .00100  2 ) s 

90.00000  0.00000  .00100  340 

0 . vOOOd  0.00000  .00200  I00U2  s * 

O.OOOOO  0.00000  .00200  5 6 7 

0.00000  0.00000  .00200  6 7* 

0.00000  O.orioo  .0020A  709 

0.00000  O.o  000  .00200  it  9 0 


- - - SURFACE  PATCH  OATA  - - - 
COORDINATES  In  METERS 


NO. 

l 

r 

2 

A 

T 

l 

Am|  a 

A | 

»1 

21 

*2 

v2 

2? 

1 

.10*00 

0.00000 

.07331 

l .oooo 

0.0000 

0.0000 

• 00  34a 

•0.0000 

1 .0000 

0.0000 

0.0000 

O.nnoo 

1 .noon 

2 

.10  >00 

.01549 

.0I5-9 

1 «00uo 

*.0000 

3.0000 

.00094 

-o.uuon 

1.0000 

0.0000 

o.nooo 

o.nooo 

1 .000* 

3 

.10*00 

—.01 4—9 

.91449 

1.0000 

0.0000 

O.*000 

.00096 

-o.ooon 

1 .0000 

0.0000 

o.oono 

c.nnoo 

1 .*000 

A 

.10000 

- . 0 l Sa  9 

-.014-.9 

1.0000 

0.0000 

0.0000 

.00096 

•0.0000 

1.0000 

0.0000 

0.0000 

o.nooo 

l.nooo 

5 

• 1 O'lOO 

.01  Sab 

-.01  s-<# 

1.0000 

0.0000 

0.0000 

.00096 

•o.ooon 

1.000* 

0.0000 

0.0000 

o.nooo 

1 .*00* 

4 

.10030 

0.00000 

-.07333 

1.0000 

0.0000 

0.0000 

.003-4 

•o.ouo* 

1.0000 

0.0000 

0.0000 

0.0000 

i .oooo 

7 

• 0 A- AO 

.OSOOO 

.0733) 

.46*0 

.sooo 

0.0000 

.0034A 

-.sooo 

.46*0 

0.0000 

n.oooo 

o.nooo 

1 .noon 

0 

. OHAAO 

.osooo 

0.00000 

.4440 

.5000 

0.0000 

.00  384 

-.soon 

.464* 

0.0000 

0.0000 

o.onoo 

l.nooo 

9 

.0"SA0 

.osooo 

-.07)33 

.4460 

.sooo 

0.0000 

.0034a 

-.SOOO 

.46*0 

0.0000 

0.0000 

0.0000 

1.0000 

10 

.0  — 40 

•1.00000 

.11000 

0.0000 

0.0000 

1 .0000 

.00*49 

1.0000 

0.0000 

0.0000 

o.nnoo 

1 .nooo 

o.nooo 

11 

.0--40 

0.00000 

-.11000 

0.0000 

0.0000 

-1.0000 

. 00449 

1 . 0000 

0.0000 

0.0000 

0.0000 

-1.0000 

o.ooon 

1? 

(0S<>00 

.04440 

.07333 

.5000 

.4640 

0.0000 

.00344 

-.4660 

.SOOO 

0.0000 

n.oooo 

o.nooo 

1.0000 

13 

.0*000 

. 0*460 

0.00000 

.1000 

.4660 

0.0000 

.00344 

-.466* 

.SOOO 

0.0000 

0.0000 

o.nooo 

i.noo* 

1 A 

.osooo 

.04440 

-.07)3) 

.5030 

.4640 

0.0000 

.003*4 

-.466* 

.sooo 

0.0000 

0.0000 

o.onoo 

l.nooo 

IS 

-.00000 

.loooo 

.07)31 

-.0000 

1 .0300 

0.0000 

.00344 

-1 .0000 

-.0000 

0.0000 

0.0000 

o.oooo 

1.0000 

1© 

-.00000 

.10000 

0.00000 

-.0000 

1.0000 

o.nooo 

.00344 

-1.0000 

-.0000 

0.0000 

0.0000 

o.onoo 

i.noo* 

17 

-.00030 

.10000 

-.073)3 

-.0000 

1 .0000 

0.0000 

.00344 

-1.0000 

-.0000 

0.0000 

0.0000 

o.nnoo 

1.0000 

IP 

.0  Ia  AS 

,04947 

.11000 

0.0000 

0.0000 

1 .0003 

.00449 

.SOOO 

.4640 

0.0300 

-.46*0 

.4000 

0.0000 

19 

• 0 IaaS 

.05947 

-.11000 

0.0000 

0.0000 

-1.0000 

.00449 

.sooo 

.46*0 

o.ooon 

.*660 

-.5000 

o.ooon 

20 

-•04*00 

.04440 

.073)3 

-.5000 

.4660 

0.0000 

.00344 

-.4660 

-.4000 

o.ooon 

o.onoo 

o.nooo 

1.0000 

21 

-.04*00 

.0*440 

0.00000 

-.5000 

.4660 

0.0000 

.00344 

-.4660 

-.4000 

0.0000 

0.0000 

o.nnoo 

1 .000* 

22 

-.04000 

.04460 

-.073)3 

-.sooo 

.4660 

u.4000 

.00344 

-.4660 

-.5000 

0.0000 

0.0000 

0.0000 

1 .000* 

23 

-. 0S*40 

.OSOOO 

.073)3 

-.4440 

.SOOO 

0.0000 

.00)14 

-.soon 

-.*640 

o.oono 

o.onoo 

0.0000 

l.nooo 

2A 

-.01*40 

.OSOOO 

0.00000 

-.4*40 

.S  000 

0.0000 

.00)44 

-.5000 

-.*64* 

o.ooon 

o.onoo 

o.nooo 

l,*00* 

25 

-.04**0 

.OSOOO 

-.07331 

-.44*0 

.SOOO 

0.0000 

.00)44 

-.5000 

-.4640 

0.0000 

0.0000 

o.oooo 

1.000* 

>4 

-.0)445 

.0594? 

.liooo 

0.0000 

0.0000 

1.0000 

.00449 

-.soon 

.46*0 

0.0000 

-.*660 

-.4000 

o.onoo 

27 

- . 0 3aAS 

,04047 

-.11000 

0.0000 

0.0000 

-1.0000 

.00449 

-.5000 

.4640 

0.0000 

.4660 

.4000 

0.0000 

2« 

-.10000 

-.OOOO'I 

.07131 

• 1 .*000 

-.0000 

0.0*00 

.0034* 

.0000 

•1.0000 

o.ooon 

o.nooo 

0.0000 

l.nooo 

29 

-.ICfOO 

-.00090 

0.00000 

• 1 .0003 

-.0000 

0.0003 

.00)44 

.0000 

-1.0000 

o.oono 

n.oooo 

o.onoo 

1.0000 

30 

-.I00>0 

-.00003 

-.O/JJ) 

-1.0*03 

-.0000 

0.0000 

.003*4 

.0000 

-1.0000 

0.0000 

0.0000 

o.oooo 

1.0000 

31 

— . 0 4**C 

-.OSOOO 

.071)1 

-.•©*0 

-.sooo 

0.0000 

.00344 

.sooo 

-.8640 

0.0000 

o.oono 

0.0000 

1.0000 

12 

-.0**40 

-.OSOOO 

u. 00000 

-.4*60 

-.4000 

u.0000 

.00)44 

.5000 

-.464* 

0.0000 

0.0000 

0.0000 

l.oooo 

13 

-.04-40 

-.04000 

-.0733# 

-.44*0 

-.sooo 

O.OOOrt 

, 00)44 

.5000 

-.964* 

o.ooon 

0.0000 

o.onoo 

1.0000 

1* 

-.04-40 

-.00000 

.11000 

o.*ooo 

9.0000 

1.0000 

.00449 

-1.0009 

-.0000 

0.0000 

.0000 

-1 .nooo 

0.0000 

35 

-.04-40 

-.QO000 

-.1 1000 

0.0000 

0.0000 

•1.0*00 

.00*49 

-1 .0000 

-.0000 

0.0000 

-.0000 

1 .0000 

0.0000 

3D 

• . C>  * 0 0 

-.04440 

.071)3 

-.5003 

-.4640 

0.0000 

.00344 

, 4660 

-.sooo 

0.0000 

0.0000 

0.0000 

l.nooo 

37 

••IHM 

-.046*0 

0.00000 

-.5000 

-.4660 

0.0000 

.00344 

.466* 

-.SOOO 

0.0000 

0.0000 

0.0000 

l.nooo 

3P 

-.OSooo 

-.0*440 

-.07U) 

-.5000 

-.■660 

0.0000 

.00)44 

.4640 

-.SOOO 

o.ooon 

o.nnoo 

0.0000 

l.ooo* 

39 

.00*00 

-.10030 

.07)3) 

.*009 

-1.0000 

0.0000 

.003*4 

1 .0000 

.00*0 

0.0000 

o.ooon 

0.0000 

l.ono* 

a4 

.00  >00 

-.10000 

0.00000 

.0330 

•1  .0000 

0.0000 

.00)44 

1.0000 

.0000 

0.0000 

o.onoo 

o.ooon 

l.nooo 

• 1 

.00000 

-.10000 

-.07)3) 

.*300 

-1.0000 

0.OOU0 

.003*6 

1 .0000 

.0000 

o.ooon 

o.nooo 

o.nooo 

1 .*000 

a2 

-.03aA<> 

-.OS-#*? 

•11000 

0.0*03 

0.0000 

1.0000 

,00*49 

-.soon 

-.46*0 

0.0000 

.*640 

-.4000 

0.0000 

A3 

-.0 TaaS 

- . 0 S<#4  T 

-.1 IftOU 

0.0000 

0.0000 

-1.0000 

,00449 

-.5900 

-.4440 

0.0000 

-.4660 

.4000 

0.0000 

AA 

.OSoOO 

-.0*44* 

.07)13 

.5000 

-.4640 

o.nooo 

.003*4 

.466* 

.5000 

o.ooon 

o.nooo 

0.0000 

1.000* 

AS 

.OSOOO 

-.04640 

0.00003 

.4000 

-.4640 

0.0000 

.00)44 

.466* 

.5000 

0.0000 

0.0000 

0.0000 

1.0000 

•*4 

.04*00 

-.04®#.} 

-.07)1) 

.5000 

-.4640 

0.0000 

.00304 

.466* 

.5000 

o.ooon 

o.onoo 

0.0000 

1.0000 

a7 

.04*4g 

-.0*900 

.07)<| 

.4460 

-.4400 

0.0000 

.003*4 

.SOO* 

, 46*0 

0.0000 

0.0000 

0.0000 

l.nooo 

aO 

.04*40 

-.04000 

0.00000 

.4660 

-.4000 

0.0000 

.00344 

.5000 

.444  0 

o.oono 

o.nooo 

0.0000 

1 .00011 

*9 

.04440 

-.osooo 

-.07111 

.44*0 

-.4000 

o.nooo 

.00)44 

.SOOO 

, *6«-  9 

o.oono 

0.0000 

o.onoo 

1.0000 

-.0 

.0  1*  AS 

-.04*4? 

.11000 

0.1000 

0.0000 

1 ,0000 

.00449 

.SOOO 

•,444* 

0.0000 

,*460 

.4000 

0.0000 

41 

.0  I-aS 

— . 0S*#4  1 

-.1)000 

0.0 JOO 

0.0300 

•1.0000 

.00449 

.5000 

-.4640 

o.oouo 

-.4660 

-.4000 

0.0000 

23 


■)/  >0  . 0lo/>> 

S3  -.01-76  .0167S 

S8  -.0167*  -,0lo7S 

SS  .0167S  -,0l«»7S 

S*  O.OOoOO  0.00000 


.1 IOUU 
.11000 
.1)000 
.11000 
*.11000 


U. 0*100 
0,0000 
0.0000 
0,0000 
0,0000 


u.oooo 

0.0000 

o.oono 

0.0000 

0.0000 


l.OOO" 

1.0000 

1.0000 

I .0000 
•1.0000 


.00712 

.0011? 

.0011? 

.0011? 

.008*9 


J .0110" 
l.oonn 

1 .0000 

1.0000 

l .0000 


u.uOtlO 

O.0000 

0.0000 

0.0000 

0.0000 


0.000*1 

O.000O 

o.oooo 

0.0000 

0,0000 


0.0000 

0.0000 

0.0000 

o.oooo 

0.0000 


1 .0000 

1 .0000 

1.0000 
l.oooo 
-1.0000 


0.0000 

0.0000 

0.0000 

0.0000 

o.oooo 


•••••  no i*  Cftoo  so. 

• ••••  OAT  A CABO  ^0. 

• ••••  OATA  CABO  SO. 


■ - - - - rutOMfNri  ...... 

Ixiiiirf  sr»«  <•  . sSM«C  • 0 * sh? 
PAbCL^NGTh*  6.8800*-Ol  MtlfiiS 


t«* ff  rsrC'.KAffns  emPtnrfO  ton  sc sobf  than  i.ooo  pavfitngihs  aoaui 

- - - * TtHif  |p»*DA SC*  LOADING  - - - 

This  sTuuCtuHC  IS  SOT  10*0*0 


•0  -0  8.6S-80l»02  -o. 

I .0  I.OOoOOfOO  -0. 
I 1000  0.  U. 


s.00000f*00  0. 
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3.0  FORMULATION 

The  theory  behind  the  basic  AMP  code  which  uses  thin  wires 
in  modeling  structures  is  outlined  in  detail  in  the  Engineering  Manual 
(reference  2).  Of  main  interest  here  is  the  modification  to  the  AMP 
code  which  allows  for  the  modeling  of  a generally  shaped  voluminous 
structure  by  means  of  surface  patches  as  an  alternative  to  wire  grid 
modeling.  An  example  of  the  general  type  of  structure  being  considered 
is  illustrated  below;  in  this  case  thin  wire  appendages  are  connected  to 
a conducting  voluminous  structure. 


As  described  in  the  Engineering  Manual,  the  electric  field 

integral  equation  (EFIE)  specialized  to  thin  conducting  wires  is  being 

used  in  the  basic  AMP.  Though  the  EFIE  could  be  used  for  the  voluminous 

structure  as  well,  the  magnetic  field  integral  equation  (MFIE)  is  generally 

4 

more  attractive  for  this  case  ; in  particular  this  is  true  for  structures 
having  a large  smooth  surface.  Therefore,  both  the  MFIE  and  the  EFIE 
are  being  used  in  the  modified  program  to  obtain  the  currents  for  structures 
of  the  type  illustrated  above. 

Using  notation  which  is  similar  to  that  used  in  the  Engineering 

4 

manual,  the  EFIE  and  the  MFIE  can  be  written  respectively 

(1) 
(2) 


-n(r0)  X E I(r0 ) = - 4^-  n ( r„ ) x / [j,  (?)  k2  + (Jg(?)-  V ) 9 g(r,r0)dA 


and 


-n  (r0)  x H^rJ  = - 1/2  J (r0)  + 4—  n (rQ ) X / J (r)  x V g (r,  r0)dA 
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where  the  integration  is  carried  out  over  the  surface  enclosing  the  entire 
body  excluding  the  singularity  as  indicated  by  the  principal  value  integral 
sign.  As  discussed  above,  for  our  application  the  EFIE  will  be  enforced 
only  on  wire  portions  of  the  structure  and  the  MFIE  is  enforced  only  on 
the  large  surface  portions  of  the  structure.  Thus  r0  which  locates  the 
observation  point  on  the  surface  is  restricted  to  wires  in  equation  (1), 
and  in  equation  (2)  r0  is  restricted  to  the  large  surface  areas;  together, 
the  two  equations  account  for  the  entire  structure. 


With  the  thin  wire  approximation  included  equation  (1)  becomes 
: - f i . . 1 .2 


Jim 

i 


s • s0  k 


>s  a so 


] g (r.  To  ) 


iTl„ 

4TTk 

So  • / [ Js  ("?)  k2  + ( Js  ( r)  ’ v)  v] 

S1 

where  the  integration  over  the  surface  in  the  second  integral  now  of  course 
excludes  surface  portions  covering  the  wires.  In  order  to  reduce  the 
vector  equation  (2)  to  two  scalar  components,  a local  coordinate  system 

/S  A 

is  defined  as  shown  in  the  illustration  such  that  the  unit  vectors  tj  and  t, 
are  orthogonal  vectors  tangent  to  the  surface  and  n is  the  normal  vector 
as  before.  Now  using  tne  identity  u • (vxw)  = (ux  v)*  w 


1 


and  noting  the  fact  that  tj  x n = - t^  and  t^  X n = t^,  equation  (2)  with  the 
thin  wire  approximation  included  becomes 


t (To)  * H1  (r0  ) = - ^ \ (70)  • / I(s)  ( s XV  g (r,  r0)) 


ds 


(r0)  * Js  (ro)  - TT 


J—  t_  ( r0  ) • -f  J s ( r)  x v g ( r,  T0  ) dA  (4a) 


and 


-tj  ( r0)  • H1^)  = TT‘*l(r°)*  / I (s)  ( S X V g (T,  r0))  ds 

L 

t2  ( ro)  * 7S  (iT)  + tj  (T>)  • / (T)  X V g ( r,  r0  ) 


dA  (4b) 
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These  two  components  suffice  since  there  is  no  normal  component  of 
equation  (2). 

The  method  of  collocation  as  outlined  in  the  Engineering  manual 
is  used  to  reduce  the  equations  (3)  and  (4)  to  a system  of  linear  equations. 
As  before,  the  wire  current  is  expanded  into  a set  of  functions  having 
constant,  sine  and  cosine  terms,  i.  e. 


N , , 

I(s)  = Uj  (s)  |Aj  + Bj  sin  k(s-sj)  + Cj  cos  k (s-sj)j 


(5) 


where  Uj(s)  is  1 when  s is  on  the  subinterval  j and  zero  otherwise.  On 
the  other  hand,  the  surface  current  is  expanded  into  a set  of  pulse  functions 
except  in  the  region  of  a wire  connection  as  will  be  discussed  later.  The 
pulse  function  expansion  is  given  by 


_ m _ r - _ 

<r>  = ,Ei  Vj  <r>  |Jlj  ll  <r> 


+ J2jt2(r) 


(6) 
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where  V (r  ) is  1 for  points  in  the  jth  subsection  and  zero  elsewhere. 

These  expansions  are  substituted  into  equations  (3)  and  (4).  The  wire 
integrals  in  equations  (3)  and  (4)  can  then  be  written  in  terms  of  a 

summation  of  integrals  over  the  wire  subintervals.  There  are  now  thjee 
unknown  quantities,  A;,  Bif  and  Cj  on  each  subinterval;  however,  through 
the  use  of  the  current  interpolation  previously  discussed'  , two  of 
these  unknowns  are  eliminated  and  the  current  function  is  then 
expressed  in  terms  of  the  unknown  center  point  currents  on  each  interval. 

A final  approximation  for  wires  is  that  straight  wire  segments  are  used 
to  approximate  the  wire  subintervals.  Of  the  resultant  integrals,  only 
those  related  to  the  constant  current  terms  need  numerical  integration. 

This  integration  is  performed  by  the  Romberg  variable-interval  width 
technique 

The  terms  involving  surface  integrations  in  equations 
(3)  and  (4)  are  handled  in  a simpler  manner  than  the  wire  terms.  Since 
pulse  functions  are  used  for  the  current  expansion,  no  current  interpolation 
is  necessary.  The  two  unknown  current  components,  and  J^j,  on 
each  surface  subsection  will  be  accounted  for  by  enforcing  the  two 
equations,  4(a)  and  4(b),  on  the  center  of  each  subsection.  The  surface 
subsections  are  approximated  by  flat  surface  patches  and  the  resulting 
integrals  are  evaluated  in  one  step;  that  is,  the  value  of  the  integral 
is  equal  to  the  product  of  the  kernel  at  the  center  of  the  patch  and  the 
patch  area.  No  special  consideration  is  necessary  for  the  case  of  the 
source  and  observation  point  on  the  same  patch  as  happens  in  equation  (4) 
since  these  terms  are  identically  equal  to  zero.  Note  that  for  a flat 
surface,  the  resultant  vector  of  the  surface  integral  in  equation  (4)  is 
normal  to  the  surface;  thus,  when  dotted  with  surface  tangent  vectors, 
these  terms  are  identically  equal  to  zero. 

More  accurate  treatment  of  the  surface  integral  in  equation 
(3)  is  necessary  in  the  region  of  a wire  connection.  The  treatment  used 

(5) 

is  quite  similar  to  that  presented  by  Albertsen  et  al  . After  Albertsen, 
the  surface  current  density,  Jg,  around  the  connection  point  should  meet 
the  requirement 


j 
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"1 

Vs*  Vx-  y*  = Jo  <x-  y)  + io  6 (x>  y) 

where  the  coordinates  are  defined  in  the  illustration  below,  V • denotes 

s 

surface  divergence,  J0  ( x,  y)  is  a continuous  function  in  the  region  ABCD, 
and  Iq  is  the  wire  current  flowing  onto  the  surface.  One  expansion  which 
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When  computing  the  field  in  equation  (3)  on  the  attachment  wire  segment 
which  is  due  to  the  surface  current,  the  expansion  for  the  current  given 
in  equation  (7)  is  used  in  place  of  the  pulse  function  expansion  over  the 
flat  square  region  ABCD.  The  current  flowing  onto  the  surface  is,  to  a 
good  approximation,  equal  to  the  current  at  the  center  of  the  attachment 
segment;  therefore,  I0  in  (7)  is  set  equal  to  the  segment  centerpoint 
current.  The  integration  over  the  region  is  performed  numerically  using 
the  rectangular  rule. 


At  this  point  the  equations  can  be  reduced  to  matrix  form.  The 
solution  of  this  matrix  equation  for  the  currents  is  obtained  using  the 
Gauss -Doolittle  factorization  method  as  described  in  the  Engineering 
manual.  In  addition,  structure  symmetry  can  again  be  used  to  greatly 
reduce  the  time  taken  in  the  matrix  solution;  the  techniques  employed  are 
the  same  as  those  for  wires  alone.  Once  the  structure  currents  have 
been  obtained,  the  far  electric  field  is  readily  calculated  by  summing  the 
electric  field  from  the  wire  and  surface  portions  of  the  structure.  The 
expression  for  the  field  can  be  written 


ikr)  c 


E(r0)  = 


4 rr 


-ikrc 


ro 


L L 


/ [<* 


• I (s)  ) k - I (s) 


ik  . r , 
e ds 


/ I 


(k  • J (r)  ) k -J 


<r)] 


ik 


dA 


(8) 


where  r0  is  the  vector  from  the  origin  of  coordinates  to  the  observation 
point,  k is  in  the  direction  of  r0,  and  k = 2rr/X  . The  evaluation  of  the 
wire  term  in  equation  (8)  is  outlined  in  the  Systems  manual  (3),  and 
the  evaluation  of  the  surface  term  is  by  straight  forward  rectangular  rule 
integration. 

To  demonstrate  the  validity  of  the  approach  taken  for  the  solution 
of  the  surface-wire  structure  problem,  three  comparisons  of  computed 
and  experimental  radiated  field  patterns  are  presented  in  Figures  5,  6,  and  7. 
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Measured  (Albertsen  et.  al.)  a = 8.3  CM 
With  Interpolation  b = 8.8CM 


WITH  ATTACHED  WIRES 


Measured  (Albertsen  et.  al.)  a = 8.3  CM 
With  Interpolation  b = 44.0  CM 


The  basic  structure  is  a cylinder  whose  length  is  22  cm  and  whose 
diameter  is  20  cm.  To  this  cylinder,  two  wires  are  attached  in  various 
locations  as  illustrated  in  the  upper  right  hand  corner  of  the  figures. 

Wire  a is  driven  and  wire  b is  passive  in  each  case.  The  experimental 
measurements  were  made  at  the  Univeristy  of  Denmark  by  Albertsen 
et  al^.  The  numerical  computations  were  made  using  the  cylinder 

model  illustrated  in  figure  3(c);  furthermore,  figure  3(d)  illustrates  the 
specific  wire  attachment  case  whose  results  appear  in  Figure  5.  No 
special  consideration  has  been  given  to  the  edges  of  the  cylinder,  but  in 
view  of  the  results  shown  in  the  three  figures  here  and  results  for  other 
configurations  obtained  by  Albertsen,  this  is  apparently  not  of  significant 
practical  importance.  On  the  other  hand,  increased  patch  density  near 
an  edge  has  yielded  more  accurate  results  in  certain  instances.  It  should 
be  pointed  out,  however,  that  the  MFIE  is  not  valid  for  field  points 
directly  on  ideally  sharp  edges;  moreover,  in  this  formulation  wires 
cannot  be  attached  directly  on  an  edge. 


3.  1 APPROXIMATE  MATRIX  ELEMENTS 

When  wire  segments  in  a structure  are  distant  from  an  obser- 
vation point  with  respect  to  wavelength,  simple  expressions  can  be  used 
to  obtain  accurate  values  for  the  fields.  This  fact  can  be  used  to  substan- 
tially reduce  the  time  required  in  calculating  the  corresponding  interaction 
matrix  elements.  The  following  expressions  are  used  in  the  AMP2 
code  when  segment-observation  point  separation  permits: 


rr  v _ I * -ikr0 
r°  ~e 


(-&  + ~~s)  COi 

0 id)  e r0 
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8<r<=~'  \7f-  + T * —3) 
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sin  0 
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These  are  the  fields  of  an  incremental  dipole  of  moment  11  located  at  the 
origin  of  a standard  spherical  coordinate  system  and  oriented  in  the 
z direction^,  At  sufficient  distances  equation  (9)  is  used  for  the  field  of 
a segment  where  l is  set  equal  to  the  segment  length  and  I is  set  equal  to 
the  center  point  current.  Thus,  these  expressions  are  the  same  as  would 
be  obtained  using  a pulse  function  current  expansion  and  one  step  inte- 
gration. 

This  approximation  has  been  found  to  yield  good  results  for 
separation  distances  as  small  as  .25  to  .2  wavelengths.  Table  1 shows 
the  accuracy  obtained  for  a particular  structure,  a 2\  dipole,  for  various 
segmentations  and  for  various  separation  distances  for  which  the  expressions 
in  equation  (9)  were  used.  The  KH  parameter  in  the  table  specifies  the 
distance  criterion  in  wavelengths  where  separations  greater  than  the 
criterion  use  the  expressions  in  (9)  and  separations  less  than  the  criterion 
use  accurate  integration  over  the  segment.  The  column  on  the  left  hand 
side  of  the  table  shows  the  number  of  segments  away  from  the  self  segment 
which  are  integrated  over.  For  this  example  it  can  be  seen  that  the 
impedance  accuracy  remains  within  a few  percent  for  a KH  down  to  . 21 
wavelengths.  It  should  be  pointed  out,  however,  that  due  to  the  quantized 
nature  of  the  problem  a KH  parameter  slightly  less  than  . 2 wavelengths 
will  cause  an  abrupt  change  to  integration  over  one  fewer  segments.  For 
the  case  of  . 2 X segment  lengths,  this  means  integration  for  the  self  term 
only  and  the  results  are  poor.  This  problem  can  be  avoided  by  keeping 
the  KH  parameter  larger  than  the  longest  segment.  It  should  also  be  pointed 
out  that  the  minimum  value  for  KH  seems  to  depend  to  some  extent  on  the 
structure  size,  type,  segmentation,  and  excitation.  Values  of  KH  up  to 
. 5 X have  been  necessary  to  obtain  only  a few  percent  error  for  some 
structures  with  very  asymmetric  feeds.  No  exact  guidelines  have  been 
established;  therefore,  it  is  probably  best  to  experiment  with  any  given 
class  of  problems  if  a minimum  value  of  KH  is  sought.  The  default  value 
for  the  KH  parameter  in  the  AMP  code  is  one  wavelength. 
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STRUCTURE  SEGMENT  LENGTHS 

NUMBER  OF 
SEGMENTS 
INCLUDED 

0.2 

0.1 

0.05 

0 

KH  PARAMETER 

.01 

.01 

.01 

% ERROR  REAL,  IMAG. 

47.2,  53. 

77.3,  135. 

97.4,  170.4 

1 

.21 

.11 

.06 

2.2,  .62 

12.4,  12.4 

21.4,  190 

.41 

.21 

.11 

2 

.068,  .015 

1.3,  2.4 

.12,31.5 

.61 

.31 

.16 

3 

.35,  .01 5 

.09,  .09 

.23,9.5 

.81 

.41 

.21 

4 

.19,  .33 

1)28~.30 

.13,  3. 

1.21 

.61 

.31 

6 

.06,  .003 

.035,  .12 

.01..23 

8 

■ 1.65 

.81 

.41 

.02,  .022 

.09,. 19 

.037,  .041 

Table  1 

PER  CENT  ERROR  OF  THE  INPUT  IMPEDANCE  OF  A 2X  DIPOLE 
USING  PARTIAL  INTEGRATION  AS  COMPARED  TO  COMPLETE 
INTEGRATION 
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4.  0 DESCRIPTION  OF  THE  COMPUTER  CODE 


In  this  section  of  the  manual,  the  details  of  the  additions  and 
modifications  to  the  AMP  computer  code  will  be  discussed  routine  by 
routine.  Only  those  routines  which  have  been  modified  in  some  way 
other  than  the  simple  change  of  a common  block  or  are  entirely  new  will 
be  discussed.  A description  of  all  other  routines  can  be  found  in  reference  3. 
The  following  list  denotes  those  routines  which  have  been  modified  and  those 
which  are  new: 


Modified 

New 

MAIN 

APRXE 

CABC 

APRXH 

CATLOG 

FFLDS 

CHKPRT 

GH 

CMSET 

HFK 

CONECT 

HFLD 

CONVRT 

HINTG 

DATAGN 

HMAT 

ETMNS 

HWMAT 

FACTR 

MATFIL 

FACTRS 

PATCH 

FFLD 

PCINT 

ISEGNO 

U DOTES 

J MELS 

UNERE 

LFACTR 

MOVE 

NETWK 

REFLC 

SOLVES 

WIRE 

The  discussion  of  each  of  these  routines  follows  these  introductory  remarks, 
and  the  discussions  are  arranged  alphabetically  by  routine  name  for  the 
entire  group  of  routines. 


I 


1 


I 

I 

I 


In  addition  to  the  modified  routines  listed  above,  other  routines 
have  changed  simply  because  common/DATA/and  common/RESTRT /have 
been  changed.  Common/ DATA/now  acts  as  the  geometry  data  storage 
location  for  both  wire  segments  and  surface  patches;  therefore,  the  total 
number  of  patches,  M,  and  the  number  of  patches  in  a symmetric  section, 
MP,  have  been  added  to  the  variable  list.  Furthermore,  in  each  array 
the  wire  segment  data  is  stored  from  the  beginning  of  the  array  sequentially 
to  N,  the  total  number  of  segments,  while  the  patch  data  is  stored  in 
reverse  sequential  order  starting  at  the  last  location  in  the  array  and 
proceeding  for  M locations.  Thus  the  length  of  each  array  must  be  known, 
and  this  quantity,  LD,  is  also  included  in  the  new  common/DATA/.  This  ’ 

• t 

storage  of  the  segment  and  patch  data  in  the  same  arrays  provides  the 
maximum  program  flexibility  in  a given  amount  of  storage,  but  since 
variable  names  were  chosen  for  the  wire  case,  the  variable  names  for 
the  surface  patch  case  are  not  necessarily  mnemonic.  The  use  of  the 
arrays  for  surface  patches  is  as  follows: 


X 

Y 

Z 

SI  ‘ 
BI 

ALP 
BET 
IC  ONI 
ICON2 
ITAG 


arrays  containing  the  x,  y,  z coordinates  of  the 

patch  centers  in  wavelengths 

array  containing  tj  for  each  patch 

array  containing  patch  areas  in  square  wavelengths 

arrays  containing  t.  and  t,  respectively  for 
i y i z 

each  patch 


= arrays  containing  the  x,  y,  z components  of  t. 


respectively  for  each  patch 


Most  routines  involved  in  surface  calculations  equivalence  these  variables 
to  others  which  have  more  meaningful  names. 


The  common  block/ANGL/is  also  used  to  store  patch  data  from 
the  top  of  array  SALP,  sequentially  downward.  The  quantity  stored  for  a 
patch  is  +1  if  (tj,  t2,  n)  for  that  patch  form  a right  hand  coordinate  system 
and  -1  if  (t  j,  t n)  form  a left  hand  coordinate  system. 
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The  common  block/RESTRT /has  been  expanded  to  contain 
variables  associated  with  the  precautionary  file  dumping.  The  variables 
IDUMP,  TMDUM,  and  EXTIM  have  been  added.  The  variables  are  defined 
as  follows: 

IDUMP  = file  dump  flag,  = 0 (default)  no  dumping, 

= 1 for  dumping 

TMDUM  = time  interval  in  seconds  between  file  dumps 
EXTIM  = clock  time  in  seconds  at  execution  start 

At  this  point  we  turn  to  the  discussion  of  individual  routines. 


I 


i 


APRXE 

PURPOSE:  to  compute  the  electric  field  due  to  an  infinitesimal 

current  element  as  the  wire  to  wire  interaction  matrix  element 
for  large  separation  distances. 


METHOD:  The  electric  field  due  to  a current  element  with 

current  I and  length  A oriented  along  the  z axis  at  the  origin  of 
a spherical  coordinate  system  is 


E=E'  T 


E’  = E*  f + E*  0 
r 0 


where 


(A/X)ri  -i2rrR 
2rr 

(-V 

1 1 

' 1 2tt  3 

R 

R 

(A  /X)  T)  -i2TT R , 

< i2TT  1 

•L  1 1 \ 

" 4tt  ® 1 

' R R2 

- 2n  Rs) 

cos  0 


sin  0 


ti  - yu/e 


R is  the  distance  from  the  current  element  to  the  observation 
point  divided  by  wavelength  (X  ) and  0 is  the  angle  from  the  z axis 
to  the  vector  to  the  observation  point,  ? . The  component  of 
E’  parallel  to  the  observation  segment  is  the  matrix  element. 

In  the  code,  E^  and  E^  are  computed  at  AE14 
and  AE15  respectively.  The  r and  0 components  are  converted 
to  z and  p components  in  cylindrical  coordinates  at  AE16  and 
AE17.  At  AE18  GN  is  called  to  modify  the  field  for  reflection 
from  the  ground  if  the  case  being  computed  is  the  field  of  the 
image  of  a segment  in  a ground  plane  (indicated  by  IP=2).  Finally 
the  matrix  element  is  computed  at  AE19. 
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SYMBOL  DICTIONARY: 


AO 
A 1 
Cl 
DIJ 

DIR 


EP 

EPE 

ER 

ET 

ETA 

ETI 

ETR 

EZ 

EZE 

IP 

PI2 

R 

RH 


RKH1 

S 

ZP 


= cos  0 
= sin  9 

= exp  (-i2n R) 

= dot  product  of  the  unit  vectors  in  the  directions 
of  the  source  and  observation  segments 
= dot  product  of  the  unit  vector  in  the  direction 
of  the  observation  segment  with  the  p unit 
vector  in  the  cylindrical  coordinate  system. 

= p component  of  E1 

= array  for  gaining  access  to  the  real  and  imaginary 

parts  of  EP 

= E' 
r 


= T| 

= imaginary  part  the  matrix  element 

= real  part  of  the  matrix  element 

= z component  of  E' 

= array  for  gaining  access  to  the  real  and  imaginary 
parts  of  EZ 

= flag  to  indicate  (if  equal  to  2 ) that  field  being 
computed  is  reflected  in  ground  plane 

= 2tt 

= distance  from  source  to  observation  segment 
(in  wavelengths) 

= p coordinate  of  the  observation  segment  in  a 
cylindrical  coordinate  system  with  origin  at 
the  center  of  the  source  segment  and  z axis  in 
the  direction  of  the  source  segment  (in  wavelengths). 

= 2tt  R 

= A/X 

= z coordinate  of  observation  segment  (see  RH) 


APRXH 

PURPOSE:  to  compute  the  magnetic  field  due  to  an  infinitesimal 

current  element  as  the  wire  to  patch  interaction  matrix  element 
for  large  separation  distances. 

METHOD:  The  magnetic  field  due  to  a current  element  with 

current  I and  length  A oriented  along  the  z axis  at  the  origin  of 
a spherical  coordinate  system  is 


H = H'  4“  , H'  = H'  o 
X <p  ^ 


Hi  _ (A/X)  ^-jZTTR 

<p  4tt 


(?  *■  «■) 


sin  0 


y u/e 


The  matrix  elements  for  the  two  scalar  components  of  the  MFIE 
are  + f ^ • H1  where  the  upper  sign  applies  for  a patch  where 
(l  ) form  a right  hand  system  (normal  case)  and  the 

lower  sign  applies  for  a left  hand  system  (patch  reflected  in  a 
symmetry  plane).  H1  is  computed  at  AH  17  and  the  matrix  element 
contributions  at  AH22  and  AH2  3.  The  contributions  are  accumu- 
lated in  TWHR  and  TWHI  so  that  when  a ground  is  present  the 
routine  can  be  called  first  for  the  direct  field  and  aen  for  the 
ground  reflected  field  with  the  fields  summed. 

SYMBOL  DICTIONARY: 

H = H' 

ILC  = location  of  the  patch  coordinate  data  in  the 

common/DATA /arrays 

K = do  loop  parameter 

A 

PDT  = ± <T  Ctj  or  t^)  upper  sign  is  used  when 

* A A 

(t  j,  t^f  T)  ) form  right  hand  system 

A 

PX  = x component  of  & 
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PY 


PZ 

R 

RFL 

RK 

R2 

S 

ST 

TPI 

TWHI 

TWHR 

T1X 

T1Y 

T1Z 

T2X 

T2Y 

T2Z 


= y component  of 

A 

= z component  of 

= distance  from  source  segment  to  observation 


patch  (in  wavelengths) 

+ 1 for  direct  field  of  segment 
- 1 for  field  reflected  in  ground 


= 2tt  R 


= A A 
= sin  9 
= 2tt 


= imaginary  part  of  matrix  elements 
= real  part  of  matrix  elements 

= x,  y and  z components  of 

A 

= x,  y and  z components  of  t^ 
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CABC  (modified) 

PURPOSE:  to  compute  the  coefficients  in  the  sinusoidal  basis 

functions  for  the  current  on  each  segment,  given  current  at  the 
center  of  each  segment.  Also  the  patch  currents  are  converted 
from  two  surface  vector  components  to  x,  y and  z components. 


MODIFICATION: 


The  code  added  from  CB86  to  CB101  converts  the 


patch  currents  from  the  two  components 

J = JI  *1  + J2  *2 

to  the  three  components 

J = J x + J y + J z 
x y ’ z 

The  components  J^,  and  J z are  stored  in  the  array  CUR  in 
place  of  J2  and  J^.  If  there  are  N segments  the  currents  for  patch 
i are  stored  as  follows: 


J:  = CUR  (N  + 2i  - 1) 

J = CUR  (N  + 3 i - 2) 
x 

J = CUR  (N  + 3i) 
z 


J2  = CUR  (N  + 2i) 

Jy  = CUR  (N  + 3i  - 1) 


Hence  the  conversion  starts  with  the  last  patch  and  proceeds  down 
in  patch  number  to  avoid  writing  over  values  of  and  J 2 before 
they  are  converted. 

LOCAL  SYMBOL  DICTIONARY: 

CLL  = 


CLO 

CUR 

JCOl 

JC02 


= array  containing  current  values 
= N + 2i  - 1 
= N + 3i  -2 

= location  of  patch  data  in  data  arrays 
= dimensioned  length  of  data  arrays 
= total  number  of  patches 
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x,  y and  z components  of  tj 
x,  y and  z components  of  t^ 


I 


T1X 

T1Y 

TIZ 

T2X 

T2Y 

T2Z 


-46- 


CA  T LOG  (modified) 


i 


PURPOSE:  to  write  the  information  contained  on  files  11-16 

onto  file  17.  File  17  can  then  be  used  to  restart  the  AMP  program 
at  the  point  where  the  files  were  dumped. 

MODIFICATIONS:  In  AMP,  the  program  execution  was  stopped 

after  the  files  were  dumped.  The  routine  has  been  modified  so 
that  execution  is  not  stopped  for  the  case  of  the  precautionary 
file  dumps,  rather  control  is  returned  to  the  calling  program. 

The  statements  CT56  and  CT57  replace  the  STOP  statement. 

Other  small  modifications  entail  changes  in  variable 
names  in  the  common  block  RESTRT.  The  new  common  block 
variable  names  are  equivalenced  to  the  variable  names  used  in  the 
routine. 


HMNMW 


CHKPRT  (modified) 


PURPOSE:  to  check  for  interrupt  during  out  of  core  matrix 

handling  and  to  control  automatic  file  dumping. 

METHOD:  This  routine  is  called  at  convenient  times  for 

program  interruption  during  out  of  core  matrix  filling  and 
factorization.  The  current  program  run  time  is  compared  to 
an  input  quantity  TMDUM,  if  the  run  time  is  greater,  routine 
CATLOG  is  called  to  dump  the  scratch  files  onto  file  17.  The 
files  are  then  repositioned  in  CHKPRT  and  control  is  returned 
to  the  calling  program.  The  next  dump  will  occur  when  the 
time  since  the  last  dump  is  greater  than  TMDUM.  In  case  of 
machine  failure,  the  program  can  be  restarted  from  one  of  these 
file  dumps. 

The  routine  CHKPRT  could  be  revised  by  the 
user  to  include  other  options  relating  to  file  dumping.  Some  of 
these  options  are  discussed  in  the  CHKPRT  writeup  in  reference 
3. 


SYMBOL  DICTIONARY: 


EXTIM 

I 

ICK 

IDUMP 

J 


TMDUM 

T 1 
T2 


= clock  time  in  seconds  at  execution  start 
= loop  index 

= flag  checking  first  call  to  CHKPRT 
= flag  indicating  if  auto  dumping  is  desired 
= number  of  backspaces  required  on  certain 
files  during  repositioning 

= running  time  in  seconds  when  the  dump  is 
initiated 

= minimum  time  between  dumps  in  seconds, 
input  quantity 

= clock  time  at  start  of  checking  period 
= current  clock  time  in  seconds 
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VARIABLES  IN  COMMON: 

ICASE,  IC1,  IC2,  IC3,  IDUMP,  NBLSYM,  NPRES,  NRES, 
TMDUM  (other  variables  in  common  not  referenced,  see 
listing). 
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CMSET  (modified) 


PURPOSE:  to  control  the  filling  of  the  structure  matrix  in  the 

CM  array. 

METHOD:  The  structure  matrix  in  the  AMP2  code  can  be 

completely  composed  of  wire  elements  or  surface  elements,  or 
there  can  be  a combination  of  wire  and  surface  elements.  The 
latter  case  will  be  discussed  here  since  it  includes  the  former  cases. 
The  layout  of  the  structure  matrix  for  an  unsymmetric  wire- surface 
structure  is  illustrated  in  figure  8.  Filling  of  the  matrix  is  arranged 
so  that  wire  to  wire  interaction  terms  appear  in  the  upper  left  hand 
box  of  the  matrix  and  surface  to  surface  interaction  terms  appear 
in  the  bottom  right  hand  box  of  the  matrix.  The  rectangular  boxes 
at  the  other  corners  of  the  matrix  contain  the  terms  representing 
the  interaction  between  wires  and  surfaces.  The  size  of  the  boxes 
is  governed  by  the  number  of  wire  segments,  N,  and  the  number  of 
surface  patches,  M.  CMSET  calls  other  routines  to  actually  calculate 
and  fill  the  appropriate  boxes  in  the  matrix,  and  these  routines  have 
been  indicated  in  figure  8 in  their  respective  boxes.  The  routines 
INTG,  APRXE,  and  HWMAT  handle  element  calculations  only, 

CMSET  then  calls  MATFIL  for  placing  the  elements  in  the  CM 
array. 

Figure  9 illustrates  the  matrix  layout  for  the  case 


of  a wire-surface  structure  with  two  period  symmetry.  The 
complete  matrix  has  the  form 


1 


SOURCE  LOCATIONS 

WIRE  SURFACE 

SEGMENTS  PATCHES 

N 2 M — 


«/» 

H 
. Z 

LU 

s 

o 

LU 

l/l  * 

Z w 

o * 
p i 
< 


O 

5 

5 

LU 

1/1 

s 


s 

CM 


U 

< 

u. 

a: 

3 

i/l 


INTG  or  APRXE 


HWMAT 


UDOTES 


HMAT 


/VOTE:  M SURFACE  PATCHES  YIELD  2M  ELEMENTS 


FIGURE  8 

EXAMPLE  LAYOUT  OF  A STRUCTURE  MATRIX 

FOR  AN  UNSYMMETRIC  STRUCTURE  WITH  WIRES 
AND  SURFACES 


-T‘\ 
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J 


however,  the  only  part  stored  and  shown  in  the  figure  are  the 


unique  blocks  |a  B J . As  in  the  unsymmetric  case,  the  total 
number  of  unknowns  is  determined  by  the  number  of  wire  segments, 

N,  plus  twice  the  number  of  surface  patches,  M.  The  size  of  the 
submatrices  A and  B on  the  other  hand  are  determined  by  the 
number  of  wire  segments  in  a symmetric  period,  NP,  plus  twice 
the  number  of  patches  in  a symmetric  period,  MP.  The  placement 
of  the  boxes  representing  the  various  types  of  interactions  within 
the  submatrices  is  shown  in  figure  9. 

The  filling  of  the  matrix  takes  place  in  two  major 
steps.  All  matrix  elements  representing  wire  segments  as  sources 
are  filled  first,  and  the  elements  related  to  patches  as  sources  are 
filled  second.  The  part  of  CMSET  which  handles  wire  sources  is 
contained  in  the  DO  loop  19  which  starts  at  CM49  and  ends  at  CM  179. 
Within  this  wire  source  loop  is  the  observation  point  loop  which 
cycles  over  all  the  appropriate  observation  points,  wire  or  surface. 

As  will  be  discussed  later,  for  out  of  core  processing  the  appropriate 
observation  points  are  limited  to  a matrix  block.  Finally,  within 
the  observation  loop  there  is  a ground  loop  which  sets  parameters 
for  the  image  of  the  source  if  present. 

The  general  wire-wire  interaction  matrix  element, 

G„,  is  the  tangential  component  of  electric  field  at  the  center  of 
segment  i due  to  a unit  current  at  the  center  of  segment  j and  zero 
current  at  the  center  of  all  other  segments.  Because  of  the  sinusoidal 
interpolation  used,  the  current  basis  function  for  segment  j extends 
onto  segments  connected  to  either  end  of  j although  it  is  zero  at  the 
center  of  these  segments.  Rather  than  integrating  over  the  entire 
support  of  the  basis  function  for  segment  j in  one  operation  to 
obtain  the  complete  matrix  element  G..  the  code  integrates  over  the 


extent  of  segment  j only,  while  integrating  three  functions 
simultaneously:  the  center  of  the  basis  function  for  segment  j 
and  the  ends  of  the  basic  functions  for  adjacent  segments.  The 
values  obtained  represent  contributions  to  G^  and  other  elements 
where  k is  any  segment  connected  to  segment  j. 

In  general  the  electric  field  is  computed  by  routine 
INTG  which  assumes  that  the  source  segment  is  located  at  the 
origin  of  a cylindrical  coordinate  system.  Thus,  if  segments 
i and  j have  their  centers  at 

r.  = x.  x + y.  y + z.  z 

1 1 1 l 

A A A 

r.  = x.  x + y.  y + z.  z 

J J J J 

and  unit  vectors  in  the  direction  of  the  segments  are 

A 

. ■ A . A . A 

1 = 1 x + i y + i z 

x y z 

A * 

• • A A • A 

i=i  x + i y + j z 

J Jx  Jy  7 Jz 

a cylindrical  coordinate  system  (p1,  cp* , z1)  is  defined  with  origin 

_ A 

at  r.  and  with  z'  = j . The  cylindrical  coordinates  of  segment  i in 
this  coordinate  system  are  computed  as 


(ri  -r.)  • j j 


p ..  = (r.  -r.)  -z.. 

i J ij 


The  coordinates  are  supplied  to  routine  INTG  which  returns  the  cont- 
ributions to  the  matrix  elements.  If  the  segment  separation  distance 
is  greater  than  RKH  (one  wavelength  is  default),  the  field  is  not 
calculated  by  the  integration  process  in  the  routine  INTG  as 
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discussed  above,  but  rather  is  calculated  by  the  routine  APRXE 
which  uses  the  field  expressions  for  a very  small  current  element. 
Fields  are  calculated  more  quickly  through  APRXE.  If  a ground 
plane  is  present  INTG  or  APRXE  is  also  called  for  the  image  of 
segment  j and  returns  the  field  of  the  image  segment  modified  by 
the  reflection  coefficient  for  reflection  in  the  ground  plane.  The 
reflection  coefficients  are  computed  in  CMSET  and  passed  to  the 
routines  that  compute  the  field.  The  field  of  the  image  of  segment 
j is  added  to  the  same  matrix  elements  as  the  field  of  segment  j. 
Elements  are  placed  in  the  CM  array  by  the  routine  MATFIL. 

For  the  case  when  the  observation  point  is  a surface 
patch,  the  two  tangential  components  of  the  H field  of  the  wire  are 
calculated  by  the  routine  HWMAT.  If  a perfect  ground  plane  is 
present,  HWMAT  is  called  for  the  field  of  the  source  and  image  and 
the  fields  are  summed.  The  matrix  elements  are  placed  in  the  CM 
array  by  MATFIL. 

When  the  wire  source  loop  has  been  exhausted,  the 
elements  corresponding  to  surface  patches  as  sources  are  filled. 

This  is  done  entirely  by  the  two  routines  UDOTES  and  HMAT.  The 
only  function  of  CMSET  in  this  case  is  to  calculate  and  pass  the  range 
of  rows  (observation  locations)  in  the  matrix  which  are  to  be  filled. 
When  all  matrix  elements  have  been  filled,  a final  function  of  the 
CMSET  routine  is  to  modify  the  diagonal  wire-wire  matrix  elements 
for  the  case  of  impedance  loading. 

When  the  matrix  is  too  large  to  fit  into  core  storage, 
the  filling  operations  discussed  above  are  confined  to  predefined 
matrix  blocks,  and  each  block  is  written  out  onto  file  11.  The  DO 
loop  from  CM34  to  CM205  which  encloses  most  of  the  program  cycles 
over  these  matrix  blocks  until  all  the  blocks  are  written  on  file  11. 
Examples  of  how  a matrix  might  be  divided  into  blocks  are  shown  in 
figures  8 and  9;  the  arrows  at  the  right  of  the  matrix  indicate  points 
where  the  matrix  might  be  divided  into  groups  of  rows.  It  is  the 
transpose  of  the  structure  matrix  which  is  actually  stored  in  the  CM 
array,  so  the  blocks  then  become  groups  of  columns  in  the  transpose 
matrix.  Due  to  the  matrix  blocking,  parameters  are  present  in  the 
code  which  keep  track  of  an  element  location  within  a block  as  well 
as  the  location  in  the  total  matrix. 
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Coding  Summary: 

CM22-CM30  initialization 

CM34-CM205  loop  over  matrix  blocks  when  matrix  is 
stored  out  of  core 

CM49-CM179  loop  over  wire  source  segments 
CM62-CM178  loop  over  observation  points  in  a block 
CM82-CM144  ground  loop  for  wire  observation  points 
CM140-CM143  calculation  of  wire-wire  elements 
CM149  placement  of  wire-wire  elements  in  CM 

CM152-CM160  initialization  for  patch  observation  point 
CM165-CM170  ground  loop  for  patch  observation  point 
CM170  calculation  of  wire  source  - patch  obser- 

vation elements 

CM172-CM176  placement  of  elements  in  CM 
CM182-CM191  calculation  and  placement  of  patch  source 
elements 

CM195-CM199  modify  diagonal  wire  elements  for  loading 
CM201  write  out  matrix  block  for  the  out  of  core 

case 


SYMBOL  DICTIONARY: 


B 

CAB 
CABI 
CAB  J 
CM 
CTH 

DIJ 

DIK 

DIL 

DIR 

ETA 

ETI 

ETR 


= wire  radius  of  segment  j ( /\) 

- array  containing  j^_ 

- i 

x 

= array  for  storage  of  the  transpose  structure  matrix 
= cosine  of  angle  between  normal  to  ground  and  the 
reflected  ray  from  segment  j to  i 

= i • j 

= see  routine  TRIO 
= see  routine  TRIO 

A A 

= pij‘  1 

= \T\  ~e  (impedance  of  free  space) 

arrays  containing  respectively  the  imaginary 
and  real  parts  of  the  three  contributions  to  the 
wire  source  matrix  elements 
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FJ 

I 


IFLG 

IJ 

IK 


IM1  1 
IM2  J 
IP 

IPATCH 

IPR 

ISV 

IT 

IXBLK1 

12 

J 

JCOl 

JC02 

NCOL 

Nil 


NROW 

PI2 


= 

= multiple  purpose  index,  from  CM63  to  CM  178 
indicates  observation  location  number  in  complete 
matrix 

= flag  for  routine  MATFIL  indicating  when  approxi- 
mate matrix  elements  are  used 

= i-j 

= flag  denoting  surface  component  equation  after 
CM154,  IK  = 1 for  component  1 and  = 0 for 
component  2 

= first  and  last  column  number  respectively  of  the 
block  in  the  transposed  matrix  which  is  being  filled 
= multiple  purpose  index,  ground  loop  index  at 
CM82  and  CM165 
= patch  number 

= loop  index  over  columns  in  a transposed  matrix 
block 

= the  column  number  of  the  beginning  of  the  last 
block  processed 
= number  of  columns  in  a block 
= do  loop  index  for  cycle  over  blocks 
= number  of  words  in  a block  to  be  written  on  file  11 
= multiple  use  index,  CM49  to  CM179  indicates 
source  segment  j 
= ICON  1 (J) 

= ICON2(J) 

= number  of  columns  in  matrix  (number  of  columns 
in  two  blocks  when  file  storage  is  used) 

= lower  do  loop  limit  for  IXBLK1  (=1  except  during 
restart  when  it  equals  number  of  first  block  to 
be  filled) 

= number  of  rows  in  matrix  (=N  + 2M) 

= 2 n 
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R 

REFPS 


REFS 

RFL 

RH 

RHOSPC 


RHOX 

RHOY 

RHOZ 

RKH 

RMAG 

S 

SAB 
SABI 
SAB  J 
SALP 

SAL  PI 
SALPJ 
SAL  PR 
TWHI 
TWHR 


T 1 
T2 


= reflection  coefficient  for  E normal  to  plane  of 
incidence  at  CM134.  Combined  with  REFS  at 
CM135 

= reflection  coefficient  for  E in  the  plane  of  incidence 
= multiplier  used  in  constructing  image  segment 
(=1  for  actual  segment,  = -1  for  image  segment) 

= Oij/>. 

= distance  from  coordinate  origin  to  point  where 
reflected  ray  from  segment  i to  j reflects  from 
ground 

= n . ./X.  at  CM88,  and 
K ij 

p. . / | p . . j at  and  after 
CM98 

= separation  distance  when  non  integrated  matrix 
elements  are  used  ( /X) 

= R 

= length  of  segment  j ( /X) 

= array  containing  they  component  of  segment  direction 


= i 

y 


= array  containing  the  z component  of  segment 
direction 
= i 

z 


= j for  segment  j or  its  image 
z 

arrays  containing  respectively  the  imaginary  and 
real  parts  of  the  three  contributions  to  the  wire 
source  matrix  elements  when  a patch  is  the 
observation  point.  The  first  array  index  denotes 
the  three  components;  the  second  denotes  the  surface 
component  equation  1 or  2 

constants  for  evaluation  of  radial  wire  ground 
screen  impedance 
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XIJ  = (xi  -Xj)/A.  (wire) 

XJ  = x./X 

J 

XSPEC  = x coordinate  of  ground  reflection  point  for  ray 

from  segment  i to  j 

XYMAG  = magnitude  of  projection  (r.  - 7.)/\  on  xy  plane 

YIJ  = (yi  - yj)/X  (wire) 

YJ  =yj/X 

YSPEC  = similar  to  XPSEC  but  y component 

ZIJ  = (zi  - Zj)/X  (wire) 

ZJ  = z./X 

ZP  = z../X 

Z RAT  IS  = (impedance  of  ground) /(impedance  of  free  space) 

ZRSIN  = quantity  used  in  computing  reflection  coefficients 

ZSCRN  = quantity  used  in  computing  reflection  coefficient 

for  radial  wire  ground  screen 

VARIABLES  IN  COMMON: 

ALP,  BET,  BI,  CAB  J,  IBLCK,  ICASE,  IC1,  KSYMP, 

M,  MP,  N,  NBLOKS,  NLAST , NP,  NPBLK,  NRADL,  PX,  PY, 
REFPS,  REFS,  RHOX,  RHOY,  RHOZ,  SABJ,  SALP,  SALPR,  SCRWL, 
SCRWR,  SI,  X,  Y,  Z,  ZARRAY,  ZRATI,  Z RAT  12  (other  variables 
not  used  in  CMSET  appear  in  the  common  blocks,  check  the  listing). 
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CONECT  (modified) 

PURPOSE:  to  generate  data  describing  the  interconnection 

of  segments  by  searching  for  segment  ends  that  are  in  contact  with 
each  other  or  in  contact  with  the  center  of  a patch. 


MODIFICATION: 


The  code  from  CN25  to  CN136  searches  for 


connections  between  segments,  and  from  segments  to  a ground 
plane.  It  is  unchanged  from  that  in  program  AMP.  From 
CN137  to  CN  168  a search  is  made  for  segments  connected  to 
patches.  When  a connection  is  found  the  patch  is  divided  into 
four  patches  by  subroutine  SUBPH  (entry  point  to  subroutine 
PATCH)  leaving  the  connected  segment  end  at  the  point  where 
the  four  new  patches  meet.  If  the  original  patch  is  patch  number 
i the  four  new  patches  are  as  shown  below. 


The  number  of  each  paten  after  the  original  patch  number  i 

is  incremented  by  3 and  the  total  number  of  patches  is  increased 
by  3.  In  addition  the  connection  number  for  the  segment  end 
(IC0N1  if  end  one  is  connected  to  the  patch  or  IC0N2  if  end  two  is 
connected  ) is  set  to  10000  + i.  Thus  a connection  number  greater 
than  10000  indicates  connection  to  a patch  and  the  amount  by  which 
it  is  greater  than  10000  gives  the  number  of  the  first  of  the  four 
patches  at  the  connection  point. 


1 


r 


LOCAL.  SYMBOL  DICTIONARY:  (all  lengths  are  in  units  of  wavelength) 
I = patch  number  (i) 

ISEG  = segment  number 

EX  = location  of  patch  data  in  data  arrays 

LD  = dimensioned  length  of  data  arrays 

M = total  number  of  patches 

SEP  = square  of  the  separation  distance  between  a 

a segment  end  and  a patch  center 
SLEN  = product  of  the  square  of  segment  length  and 

the  square  of  SMIN 

SMIN  = separation  tolerance.  A segment  end  is 

considered-Qonnected  to  a patch  if  its  distance 
from  the  patch  center  is  not  greater  than  the 
product  of  SMIN  and  the  segment  length. 

= square  of  SMIN 


SSMIN 
XII 
YI1 
ZI1 
XI2 
YI2 
ZI2 
XS 
YS 
ZS 


= x,  y and  z coordinates  of  end  one  of  the  segment 


x,  y and  z coordinates  of  end  two  of  the  segment 


= x. 


y and  z coordinates  of  the  patch  center 
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C ON'VRT  (modified) 

PURPOSE:  to  convert  the  segment  geometry  data  stored  as 

the  x,  y and  z coordinates  of  each  end  of  the  segment  to  the 
x,  y and  z coordinates  of  the  segment  center,  the  segment 
length  and  two  orientation  angles. 

MODIFICATION:  The  statement  at  CV13  has  been  added  to  cause 

a return  to  the  calling  program  when  there  are  patches  but  no 
segments  in  the  model. 
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DATAGN  (modified) 


PURPOSE: 


Main  routine  for  input  of  structure  geometry  data. 


MODIFICATION: 

DA  18  to  DA23: 
DA31: 

DA36  to  DA37: 
DA40: 

DA51  to  DA5  9: 

DA60  to  DA65: 

DA94  to  DAI  01: 
DAI  13  to  DAI  19: 


New  Mnemonics: 


initialization 

check  whether  number  of  patches  and  segments 
exceeds  dimension  limit 
branches  to  set  patch  data 

branch  to  set  special  segment  connection  number 
Subroutine  PATCH  is  called  to  generate  data 
for  a surface  patch. 

PACHS  (entry  point  to  PATCH)  is  called  to 
generate  surface  by  shifting  last  patch  input. 
Patch  dimensions  are  scaled  by  factor  XW 1 . 
Connection  number  for  the  segment  end  specified 
by  a GC  card  is  set  to  interpolate  to  image  of 
the  segment  current. 


SP: 


Defines  a new  surface  patch 


XW1 

YW1 

ZW1 

XW2 

YW2 

ZW2 

SS: 

ITG 

NS 

XW1 

YW1 

GC: 


= x,  y and  z coordinates  of  patch  center 

i 

= a orientation  angle  of  the  patch  normal 
= £ orientation  angle  of  the  patch  normal 
= patch  area 

Forms  a surface  by  shifting  the  last  patch  input. 

= number  of  increments  in  x 
= number  of  increments  in  y 
= x increment 
= y increment 

Connection  number  for  the  end  of  the  segment 
specified  is  set  equal  to  the  segment  number.  This 
causes  the  segment  current  to  be  interpolated  to 
its  own  image  about  the  specified  end.  This  card 


ITG 

NS 


can  be  used  if  a segment  is  connected  to  a surface 
other  than  at  a patch  center.  It  does  not  cause  inter- 
polation of  the  surface  current  on  to  the  wire,  however. 
The  GC  card  should  not  be  used  in  the  normal  case 
of  a segment  connected  to  a patch  center. 

= segment  tag  number 

= number  of  the  segment  in  the  set  of  segments  having 
tag  ITG.  If  ITG  is  zero,  NS  is  the  segment  number 
= segment  end.  If  XW  1 = 1.  end  one  is  affected  if 
XW1  = 2.  end  two  is  affected. 


XW1 


—Try.  ■ 


r 


ETMNS  (modified) 

PURPOSE:  to  fill  the  array  representing  the  right  hand  side 

of  the  matrix  equation  with  the  negative  of  the  electric  field 
tangent  to  the  segments  and  the  tangential  magnetic  field  on 
surfaces. 

METHOD:  The  array  E represents  the  right  hand  side  of  the 

matrix  equation.  For  the  i**1  segment  the  right  hand  side  is  the 
negative  of  the  applied  electric  field  component  tangent  to  the 
segment,  and  is  stored  in  location  i in  array  E.  For  the  i^*1 
surface  patch  there  are  two  rows  in  the  matrix  equation  (from  the 
two  components  of  the  vector  equations)  with  locations  N + 2i-l 
and  N + 2i,  where  N is  the  total  number  of  wire  segments.  The 
contents  of  E for  these  locations  are 

E (N  + 2i-l)  = - t t • (nxHj)  = + t2  • Ht 

E (N  + 2i)  = t * (n  x H.)  = + tL  • H. 

where  H . is  the  magnetic  field  applied  to  patch  i.  The  forms  on 
the  right  are  used  in  the  code  with  the  upper  sign  applying  when 
(t  ,,  t_,  n)  forms  a right  hand  system  and  the  lower  sign  when 
left  hand.  To  avoid  the  need  to  check  (t  t^,  n)  the  sign  is  stored 
in  array  SALP  where  for  patch  i SAL.P  (ED  +1  - i)  = _+  1 according 
to  (t^,  t n)  with  LD  the  length  of  the  arrays  in  common/DATA/. 

Only  minor  changes  have  been  made  in  the  code  for  the  electric 
field  on  segments  (see  reference  3).  The  new  code  for  the  magnetic 
field  cn  patches  is  described  below.  Refer  to  reference  3 for 
symbols  not  defined  here 

ET56  to  ET67:  Magnetic  field  due  to  a linearly  polarized 

plane  wave  is  computed  as 

H.  = — exp  (-ik  ' r.) 

IT)  1 

where  H„  = kxE0 
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LOCAL  SYMBOL  DICTIONARY: 


' 


ARG 

I 

IS 

II 
12 
LD 
M 
QX 
QY 
QZ 

RETA 

SA.LP 

T1X 

T1Y 

T1Z 

T2X 

T2Y 

T2Z  . 

T 1 


= -k  • r 

1 

= location  of  patch  data  in  data  arrays 
= patch  number 
= N + 2 IS  - 1 
= N + 2 IS 

= dimensioned  length  of  arrays  in  common/DATA/ 
= total  number  of  patches 

= x,  y and  z components  of  the  unit  vector  in  the 
direction  of  H • 

= 1 /r)  = yfz  /u 

= array  containing  sign  data  described  above 
= x,  y and  z components  of  tj 

= x,  y and  z components  of  t ^ 

= _+  exp  (-ik  • r^/n 


ET82  to  ET96:  Magnetic  field  due  to  an  elliptically  polarized 

plane  wave  is  computed.  The  code  is  the  same  as  for  linear  polar- 
ization except  that  CX,  CY  and  CZ  are  used  for  the  complex  H0 
and  T2  is  used  in  place  of  Tl. 

ET153  to  ET164:  Magnetic  field  due  to  an  elementary  current 

source  at  the  origin  and  directed  along  the  z axis  of  a spherical 
coordinate  system  has  only  a (^component  given  by 


^ -ikR  / 1 
4TT  R2 


+ 


sin  0 


- 66  - 


LOCAL  SYMBOL  DICTIONARY: 


r 


cx 

CY 
CZ 
DSH 

II  = location  of  patch  data  in  data  arrays 

IS  = index  for  computing  II 

11  = N + 2i  -1  where  i = patch  number 

12  = N + 2i 

NPM  = sum  of  the  number  of  segments  and  the  number 

of  patches 
PX 
PY 
PZ 

P6  = I0  X/X2 

T2  = + H 

- <P 


= x,  y and  z components  of  the  unit  vector 
in  the  <p  direction  (©) 


x,  y and  z components  of  H © 

<P 


= I0  X/(4tt  \ e‘) 


FACTR  (modified) 


PURPOSE:  to  factor  a complex  matrix  into  a lower  triangular 

and  an  upper  triangular  matrix  using  the  Gauss-Doolittle  technique. 
The  factored  matrix  is  used  by  subroutine  SOLVE  to  determine  the 
solution  of  the  matrix  equation  Ax  = B. 

MODIFICATIONS:  There  are  only  small  code  optimization  changes 

made  in  this  routine.  The  new  complex  variable  ARJ  replaces 
the  subscripted  variable  A (R,  J)  in  the  inner  most  do  loop  of 
steps  2 and  3 (see  listing),  and  it  replaces  1.  /A (R,  R)  in  the  do 
loop  in  step  5. 
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FACTRS  (modified) 

PURPOSE:  to  control  the  factorization  of  the  structure  matrix. 

In  particular,  when  structure  symmetries  are  present,  the  sub- 
matrices are  combined  according  to  symmetric  modes  for 
factorization. 

MODIFICATION:  The  REWIND  15  at  FS119  has  been  added  to  take 

care  of  an  unusual  event  related  to  the  precautionary  file  dumps 
and  the  restarting  of  the  program. 


FFLD  (modified) 


PURPOSE:  to  calculate  the  far  electric  field,  neglecting  the 

e ” 

term  rr—  , for  wire  and  surface  structures. 

/X 

MODIFICATIONS:  In  the  AMP  code  subroutine  FFLD  calculated  the 

far  electric  field  for  wire  structures  (see  reference  3);  in  AMP2, 

FFLD  has  been  extended  to  include  the  far  field  due  to  surfaces. 

The  actual  field  calculations  for  surface  patches  are  performed 
in  the  subroutine  FFLDS,  so  the  main  coding  changes  involve 
checking  for  the  presence  of  surface  patches,  calling  FFLDS,  and 
summing  the  wire  and  surface  fields. 

A summary  of  the  added  coding  follows: 

FF6-FF8  modified  COMMON/DATA/ 

FF18  addition  of  the  complex  variables  EX,  EY,  EZ, 

GX,  GY,  GZ  to  be  used  in  surface  field  calculations 
FF27  saving  of  the  initial  value  of  the  parameter  ROZ 

FF33  checking  if  wire  segments  are  present,  if  not,  wire 

coding  is  skipped 

FF168  after  segment  fields  have  been  calculated,  the 

presence  of  surface  patches  is  checked,  if  present, 
field  calculations  for  surface  patches  are  performed 
FF172-FF174  initialization  of  pertinent  variables  for  the  case  of 
no  wire  segments 

FF175-FF182  initialization  of  variables 

FF183-FF189  surface  patch  ground  loop.  Only  the  effects  of  a 
perfect  ground  are  included  with  surface  patches. 

(Note,  for  structures  with  wires  only,  the  effects  of  real 
grounds  are  included  through  the  use  of  Fresnel 
reflection  coefficients  as  before) 

FF186  FFLDS  called  for  calculation  of  surface  patch 

fields 

FF190-FF194  summation  of  the  wire  and  surface  fields  and 

calculation  of  the  E.and  E field  components 

c <n 
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SYMBOL  DICTIONARY:  (new  variables  --  for  variables  not  included 


EX 

EY 

EZ 

GX 

GY 

GZ 

M 

ROZS 

RRZ 


here  see  reference  3) 

= FF187  to  FF189,  x,  y,  z components  of  field 
due  to  surfaces  (used  in  ground  summation), 
FF19Q-FF192  segment  field  quantities  included 

= x,  y,  z components  of  far  electric  field  due  to 
surface  patches  returned  from  FFLDS 
= number  of  surface  patches 
= initial  value  of  ROZ 
= + ROZ 


[I 
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FFLDS 


1 


PURPOSE: 


to  calculate  the  x,  y,  z components  of  the  far 


electric  field  due  to  the  surface  currents;  however,  the  term 

-i2rrr0  /X  . 

e / ( r0 / X)  is  not  included. 

METHOD:  The  expression  for  the  far  electric  field  for 

surface  currents  given  in  equation  8 can  be  rewritten  as  follows 

-i2n  rn  /\  r . A 

— — J v I r : i . . / \ o 


E(r0)  = 


H"ln  e 


/ T i2nk  • r/X  , . ,,  2 
• / J (r)  e dA/X 


- / V>« 


dA/X 


where  r0  is  the  vector  from  the  origin  of  coordinates  to  the 

A 

observation  point,  and  k is  in  the  r0  direction.  Note  that  the 
integrals  in  the  above  expression  are  identical.  The  integral 
is  calculated  as  a simple  sum  over  the  surface  patches.  The 

• • • v*  / \ — — 

quantity  which  is  returned  to  the  calling  program  is  — — — E(r0). 

-izTTr0  / X 
e 


SYMBOL  DICTIONARY: 


ARC 

CONS 


= 2rr k • r/X 

= i po  / 2 - _ 

= multiple  use  complex  variable,  r 1 ^ \A/  X^ 

at  FL22,  k dot  the  integral  at  FL28 


= x,  y,  z components  of  integral  summation  at  FL24, 

I . „ 'rO  / V fr  Z- " \ ITT  -j  A 


equal  to 


■ i2rr  r0  / ; 


E (r  o ) at  FL  30 


= array  location  of  patch  data 
= loop  index  over  patches 
= current  array  index 
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ROX 

A 

ROY  = x,  y,  z components  of  k 

ROZ 

S =A  A/X  (the  area  of  a patch) 

SCUR  = array  where  the  x,  y,  z components  of  surface 

current  are  stored 
TPI  = 2rr 

XS 

YS  = arrays  containing  center  point  coordinate  of 

ZS  patches  in  wavelengths 

VARIABLES  IN  COMMON: 

BI,  LD,  M,  X,  Y,  Z (other  variables  in  common  not 
referenced  in  FFLDS,  see  listing). 
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GH 

PURPOSE:  to  compute  the  function  which  is  numerically 

integrated  for  the  near  H field  of  a segment. 


METHOD: 


The  value  returned  by  GH  is 


2 

(kr) 


-ikr 

e 


where  r = 


+ (z  -z' 


1/2 


p ' = p coordinate  of  the  field  observation  point  in  a cylindrical 
coordinate  system  with  origin  at  the  center  of  the  source 
segment  and  z axis  oriented  along  the  source  segment, 
z'  = z coordinate  of  the  field  observation  point  in  the  cylindrical 
coordinate  system. 

z = z coordinate  of  the  integration  point  on  the  source  segment. 

k = 2tt/\ 

SYMBOL  DICTIONARY: 


CKR 

= 

cos  (kr) 

HR 

= 

real  part  of  G 

HI 

= 

imaginary  part  of  G 

R 

= 

kr 

RHKS 

= 

(kp')2 

RR2 

= 

1. /(kr)2 

RR3 

= 

1. /(kr)3 

2 

RS 

(kr) 

SKR 

= 

sin  (kr) 

ZK 

= 

kz 

ZPK 

~ 

kz' 

I 
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HFK 

PURPOSE:  to  compute  the  near  H field  of  a uniform  current 

filament  by  numerical  integration. 


METHOD: 


The  H field  of  a current  filament  of  length  A with 


uniform  current  distribution  of  magnitude  I - X is 
k^ 


H = 
0 


k£l  f 2 

r i i 

2 -Lie  — 
• * 2 

3 + 2 

(kr)  (kr) 

e'lkrd(kz) 


where  r,  p'  and  z are  defined  in  the  description  of  subroutine  GH. 

The  numerical  integration  is  performed  by  the  method  of  Romberg 
quadrature  with  variable  interval  width,  which  is  described  in  the 

discussion  of  subroutine  INTX  in  reference  3.  The  integral  is 
multiplied  by  kp'/2  at  HK82  and  HK83  in  the  code. 


SYMBOL  DICTIONARY: 

(Excluding  variables  used  in  the  numerical  quadrature  algorithm 
which  are  defined  under  subroutine  INTX  in  reference  3.  ) 

RHK  = kp' 

RHKS  = (kp')2 

SGI  = imaginary  part  of  H 

SGR  = real  part  of 

ZPK  = kz'  (z1  = z coordinate  of  observation  point) 

ZPKX  = ZPK 
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HFLD 


PURPOSE:  to  compute  the  near  H field  of  filamentary  currents 

of  sine,  cosine  and  constant  distribution  on  a segment. 

METHOD:  The  wire  segment  is  considered  to  be  located  at 

the  origin  of  a local  cylindrical  coordinate  system  with  the  point 
at  which  the  field  is  computed  being  (p',  cp' , z').  The  geometry 
for  a filament  of  current  of  length  A is  shown  below 


Segment 


For  a sine  or  cosine  current  distribution  the  field  can  be  written 
in  closed  form.  For  a current  I0  z)  the  field  is 


H (p1,  z') 
O 


-ilo/X 
2kP ' 


ikr_  / cos  k A /2  \ -ikr 


/ cos  a / l-  | 
6 \-sinkA/2/ 


/cos  k A / 2 \ 
( sin  k i/2/ 


a -ikr 

■ i Iks'  -k  * 


kr. 


sinkT 
, A 

cos  k -j-y 


, L e‘ikrl 

+ i (ltz1  tk— ) -j— — 


1 


' - sin  k 


cos  k 


i « mrfl  in  this  routine. 


The  field  due  to  a constant  current  is  obtained  by  numerical 
integration  which  is  performed  by  subroutine  HFK.  If  p ' is  zero 
all  field  quantities  are  set  to  zero  since  is  undefined. 


SYMBOL  DICTIONARY: 


CDK 

CONS 


EKRl 

EKR2 


= cos  (kA  / Z ) 

= -i/(2k0') 

= A/(2X) 

= k 4/2 
-ikr , 


-ikr 

= e 2 


HKR 


HPK 


= -i  2tt 

= imaginary  part  of  HPK 
= real  part  of  HPK 

= H due  to  a cosine  current  distribution 
<P 

= H due  to  a constant  current  distribution 
<P 

= H due  to  a sine  current  distribution 
<P 

= P'/X 
= (P'/X)2 

= Tj/X 

= r2A 
= A/X 

= sin  (kA/2) 


= (kz1  + k )e  lkrl  /krj 
= (kz1  - k — )e“lkr2/kr2 


= (z1  + A/2)/X 
= (z  1 - A/2)/X 
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HINTG 


PURPOSE:  to  calculate  the  H field  due  to  one  patch  observed 

at  another,  and  to  calculate  the  resulting  interaction  matrix 
element. 

METHOD:  The  H field  due  to  patch  j at  patch  i is  calculated 

by  the  expression 


Bii  - w [<* + 1 2"  -IN  > 


(Rii  f 'x  1 


7.  Af 
l , z 


where  R..  - - r^  and  AA^  is  the  area  of  patch  j.  This  expression 

is  equal  to  the  kernel  of  the  integral  in  equation  (2)  evaluated  at 
the  appropriate  patch  center  point  multiplied  by  the  patch  area;  in 
addition  the  factor  is  included. 

/v  A 

The  components  of  equation  (10)  in  the  -tj.  and  -t^ 
directions  are  calculated  for  elements  of  the  interaction  matrix. 
For  the  case  of  a perfectly  conducting  ground  plane,  the  subroutine 
HINTG  is  called  twice  to  calculate  the  patch  and  patch  image  field, 
and  the  appropriate  field  components  are  summed  for  this  case  in 
HINTG. 

SYMBOL  DICTIONARY: 

CR  = cos  (-k  R) 


- H. . with  J,  . as  the  current  source. 
U _ ij 

Note  J.  = J,  . ?, . + J_.  t,. 

J 2j  2j 


= -H..with  J_.  as  the  current  source 
ij  2j 


GAM 


(1  + ikR) 


VR 


r 


S' 

I 


GX 

1 

GY 

ii 

O 

> 

* R/X 

GZ 

Gil 

= li- 

H... 

ijl 

as  the 

sourc 

G12 

= ^li  • 

*ij2 

G21 

•H 

(VJ 

1 

II 

Hijl 

G22 

• H 

CNJ 

1 

II 

Hij2 

II 

= observation 

IP 

= image 

flag: 

J 

JJ 

R 

RFL 

RK 

RSQ 

RX 

RY 

RZ 

S 

SR 

TPI 

T1QX 

T1QY 

T1QZ 

T1X 

T1Y 

T1Z 

T2QX 

T2QY 

T2QZ 


ijl 


patch 

= source  patch  location  in  array 
= source  patch  number 
= R/X 

= parameter  used  in  image  calculation:  1 for  structure 

patch,  -1  for  image  patch 
= - 2tt  R /X 
= (R/X)2 

= r/x 

= AA/X2 
= sin  (-kR) 

= 2tt 

= tj  for  a patch 


arrays  containing  the  components  of  t^ 


t for  a patch 

Ct 
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VARIABLES  IN  COMMON: 

ALP,  BET,  BI,  ICON1,  ICON2,  IPSYM,  ITAG, 
LD,  M,  MP,  N,  NP,  SALP,  SI,  T1XI,  T1YI,  TIZI,  T2XI, 
T2ZI,  WLAM,  X,  XI,  Y,  YI,  Z,  ZI. 


HMAT 


PURPOSE:  to  fill  the  matrix  elements  representing  the  inter- 

action between  surface  patches. 

METHOD:  Subroutine  HMAT  has  as  input  the  column  range 

(IM1  to  IM2)  in  the  transposed  structure  matrix  between  which  the 
surface  to  surface  interaction  elements  are  to  be  filled.  For  the 
most  part  the  matrix  elements  themselves  are  calculated  in  sub- 
routine HINTG;  thus,  HMAT  calls  HINTG  to  obtain  the  elements 
for  each  source-observation  patch  pair  and  places  them  in  the 
appropriate  locations  in  the  transposed  structure  matrix,  CM. 

The  self  terms  on  the  other  hand  appear  simply  as  1/2  and  are 
added  directly  into  the  matrix  by  HMAT.  Each  observation  patch 
accounts  for  two  columns  in  CM  as  indicated  by  the  two  component 
equations  in  equation  (4);  therefore,  in  dividing  the  matrix  into 
blocks  for  out  of  core  processing  these  columns  may  appear  in 
different  blocks,  and  extra  coding  is  present  to  check  and  take 
care  of  this  situation. 

The  sign  of  certain  matrix  elements  is  dependent 
on  the  symmetry  used  in  structure  construction.  This  happens 
since  the  t vectors  are  reflected  through  a plane  of  symmetry  and 

A A A A A 

the  conditions  t ^ x n = -t  and  t_  x n=  t^  on  the  first  side  of  the 

A A ^ A A 

symmetry  plane  become  tj  x n = t^  and  X n = -tj  on  the  other  side. 
The  result  is  sign  changes  in  equation  4a  and  4b;  these  changes  are 
made  in  the  code  through  the  SALP  variable  which  is  1 for  the 
former  case  and  -1  for  the  latter. 

The  subroutine  coding  is  as  follows:  parameter 
set  up  HM19  to  HM28,  observation  loop  HM30  to  HM82,  source 
loop  HM46  to  HM82  divided  into  an  outer  symmetry  period  loop 
and  an  inner  loop  over  patches  in  period,  ground  loop  HM  56  to 
HM57,  and  matrix  element  placement  HM58  to  HM81. 
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SYMBOL  DICTIONARY: 


CM 
Gil' 
G12 
G21 
G22^ 

IL 

IM1 

IM2 

IP 

IP  END 

IPST 

ISELEN 


ISELST 


1ST  ART 
IX 

11 

12 

J 

J‘  ) 

J2  J 

K 

L 

LL 

NCOL 


NOP 

NROW 


= transpose  structure  matrix  array 


= matrix  elements  from  HINTG 


= observation  patch  array  location 
= column  number  where  fill  begins 
= column  number  where  fill  ends 
= patch  number  loop  index 
= last  patch  number  within  column  range 
= first  patch  number  within  column  range 
= flag  denoting  whether  component  equation  1 or  2 is 
the  last  column  in  the  matrix  block 
= flag  denoting  whether  component  equation  1 or  2 is  the 
first  column  in  the  matrix  block 
= first  matrix  column  to  be  filled  by  HMAT 
= ground  loop  index 

= column  number  in  block  for  component  1 equation 
= column  number  in  block  for  component  2 equation 
= source  patch  number 

= row  numbers  for  elements  corresponding  to  the 
source  current  components  1 and  2 respectively 
= matrix  block  column  number  index 
= symmetry  period  loop  index 

= index  of  loop  over  patches  in  a period  of  symmetry 
= number  columns  in  transposed  structure  matrix 
(equal  to  the  total  number  of  equations  for  one 
symmetric  section) 

= number  of  periods  of  symmetry 
= number  of  rows  in  matrix  (equal  to  total  number 
of  unknowns) 

= array 


T1X 
T 1 Y 
T1Z 
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I 


= t_  array 


CONSTANTS: 


= array  for  the  coordinates  of  patch  centers  in 
wavelengths 

+ 1/2  = matrix  self  terms 


VARIABLES  IN  COMMON: 

ALP,  BET,  BI,  CH,  CL,  ICON1,  ICON2,  IFAR, 
IPERF,  IPSYM,  ITAG,  KSYMP,  LD,  M,  MP,  N,  NP,  NRADL, 
SALP,  SCRWL,  SCRWR,  SI,  T1XI,  T1YI,  T1ZI,  T2XI,  T2YI, 
T2ZI,  WLAM,  X,  XI,  Y,  YI,  Z,  ZI,  ZRATI,  ZRATI2. 


HWMAT 


PURPOSE:  to  compute  the  matrix  elements  associated  with  the  H 

field  at  a surface  patch  due  to  the  current  on  a wire  segment. 

METHOD:  Subroutine  HWMAT  is  called  by  subroutine  CMSET 

to  compute  the  H field  tangent  to  patch  i produced  by  three  comp- 
onents of  the  current  basis  functions  on  segment  j.  The  three  inte- 
grated functions  on  segment  j produce  six  matrix  element  contri- 
butions for  the  case  of  the  surface  patch  since  the  field  of  each 
current  function  is  decomposed  along  the  two  tangent  vectors.  The 
expressions  for  the  matrix  element  contributions  are  identical  to 
those  presented  in  the  INTG  discussion  in  reference  3 if  H is  sub- 
stituted for  E,  and  in  addition,  the  dot  products  are  taken  along 
+ t^  and  + tj,  the  surface  tangent  vectors,  rather  than  a wire 
direction  vector.  (INTG  calculates  the  matrix  elements  repre- 
senting the  E field  at  a segment  i due  to  the  current  on  a segment  j). 
The  upper  sign  on  the  surface  tangent  vectors  applies  for  the 

A A A 

patch  where  (t ^ , t^,  n)  form  a right  hand  system  (normal  case) 
and  the  lower  sign  applies  for  a left  hand  system  (patch  reflected 
in  a symmetry  plane).  This  can  be  seen  in  the  derivation  of  the 
scalar  components  in  equation  4,  and  the  matrix  elements  being 
discussed  here  arise  from  the  wire  terms  in  equation  4.  In  addition 
equation  4b  has  been  multiplied  through  1 • a minus  sign  for  usage 
in  the  code. 

The  H field  of  the  segment  j for  a sine,  cosine, 
and  constant  current  is  calculated  by  the  subroutine  HFLD.  The 
field  is  calculated  for  the  segment  located  at  the  origin  of  a 
cylindrical  coordinate  system,  so  the  cylindrical  p and  z coordinates 
of  the  observation  point  are  passed  to  HFLD  and  the  phi  components 
of  the  field  for  sine,  cosine,  and  constant  current  are  returned  to 
HWMAT.  (The  phi  component  is  the  only  non  zero  component).  The 
matrix  elements  are  then  calculated  with  the  expressions  discussed 
above.  When  the  source  and  observation  points  are  separated  by 
a distance  greater  than  a specified  value  (RKH),  the  field  terms 
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are  no  longer  calculated  by  HFLD,  Rather  the  routine  APRXH 
is  called  which  calculates  the  field  without  integration  and 
returns  the  proper  matrix  elements  to  HWMAT. 

For  the  case  of  a perfectly  conducting  ground 
plane,  HWMAT  is  called  to  calculate  the  matrix  element  contri- 
bution for  the  source  segment  image  as  well  as  the  source 
segment.  The  contribution  of  the  image  is  added  to  the  same 
matrix  element  as  the  actual  source  segment. 

A summary  of  the  coding  follows: 

HW22-HW29  calculation  of  cylindrical  coordinates  of 
the  observation  point 

HW32-HW37  calculation  of  the  x,  y,  z components  of 

A 

cp  in  the  cylindrical  system  centered  on 
the  source  segment 
HW41  calculation  of  H field 

HW53-HW72  loop  over  the  two  equation  components 

HW54-HW59  H field  components 

HW60-HW71  calculation  of  matrix  elements 

SYMBOL  DICTIONARY: 

CABJ  = x component  of  source  segment  direction 

CK 

CL 

CONS 

COSK  = see  INTG 

COSL 

DTK 

DIL 
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[ 

[ 


1 1 


HCDT 

HKDT"' 

HPC 

HPK 

HPS 

HSDT 

IFLG 

ILC 

IP 

IPATCH 

K 

PDT 


PX 

PY 

PZ 

R 

RFL 

RH 

RHX 

RHY 

RHZ 

R2 

SAB  J 
SALP 


= + t _ . * H or  + t , . • H where  H is  the  field 
Zi  c li  c c 

due  to  a cosine  current 

= + . * H or  + t , . * H where  H is  the  field 

2i  k li  k k 

due  to  a constant  current 

- field  due  to  the  cosine,  constant,  and  sine  current 
components  respectively  in  the  cylindrical 
coordinate  system 

= + t _ . * H or  4-  t . . • H where  H is  the  field 
2i  s li  s s 

due  to  a sine  current 

= flag  returned  to  CMSET  denoting  use  of  HFLD 
or  APRXH 

= array  location  of  patch  data 
= ground  flag 
= patch  number 

= index  for  component  equations 

^ A 

= _+  t ^ * cp  or  t j • cp,  the  sign  is  determined  by 
contents  of  SALP  array.  For  a right  handed 
system  SALP  = 4,  and  left  handed  SALP  = 

= x,  y,  z components  of  the  cylindrical  cc 
(cylindrical  coordinate  system  centered  at 
source  segment) 

= source- observation  separation  distance  ( /X) 

= multiplier  creating  image  segment 
= P 


= p after  HW3 1 


= y component  of  source  segment  direction 
= see  PDT 
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f 


SALPJ 

SALPT 

SILK 

SINK 

SINL 

SJ 

TP 

TWHI 

TWHR 


T1X 

T1Y 

T1Z 

T2X 

T2Y 

T2Z 

XD 

XJ 

XS 

YD 

YJ 

YS 

ZD 

ZJ 

ZP 

ZS 


= z component  of  source  segment  or  image 
direction 

= z component  of  source  segment  direction 
= see  INTG 


= source  segment  length 
- 2tt 

= arrays  containing  the  imaginary  and  real  parts 
respectively  of  the  matrix  elements.  The  first 
index  of  the  array  refers  to  the  current  basis 
functions,  the  second  index  refers  to  the 
scalar  component  equations  4a  and  4b. 

= arrays  containing  the  x,  y,  z components  of  t^ 

A 

= arrays  containing  the  x,  y,  z components  of  t^ 

= (r0  - r)  ^/\ 

= r /X,  the  x component  of  the  source  segment 
= array  containing  x coordinates  of  patch  centers 

( /X) 

= (r0  - r )y/\ 

= r /X 

y 

= array  containing  y coordinates  of  patch  centers 

( /X) 

= (r0  - r ) /X 
z 

= r /X  of  source  and  image 
z 

= z in  the  cylindrical  coordinate  system 
= array  containing  z coordinates  of  patch  centers 
( /X) 
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ISEGNO  (modified) 

PURPOSE:  to  determine  the  segment  number  of  the  m*'*1 

segment  ordered  by  increasing  segment  numbers  in  the  set  of 
segments  with  tag  numbers  equal  to  the  given  tag  number. 

MODIFICATIONS:  The  formal  parameter  M in  AMP  has  been  changed 

to  MX  in  AMP2  to  avoid  conflict  with  the  variable  name  M in  the 
new  common/DATA/array.  The  MX  variable  occurs  at  IS1, 

IS9,  IS14,  and  IS20.  In  addition,  execution  is  terminated  for  the 
case  of  no  wire  segments  since  this  would  be  an  invalid  call. 

The  segment  condition  is  checked  at  ISlfe. 
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JMELS 


PURPOSE:  to  add  matrix  element  contributions  due  to  segments 

at  multiple  junctions  into  the  appropriate  matrix  locations. 

MODIFICATION:  The  form  of  the  structure  matrix  for  the  case  of  a 

wire  and  surface  structure  can  be  seen  in  figures  8 and  9;  thus, 
the  location,  £,  of  a matrix  element  associated  with  a source 
segment,  j,  can  be  written 

i = 2 MP  [-tjjJ-]  +j 

where  the  integer  part  of  the  expression  inside  the  bracket  is 
taken.  This  calculation  has  been  added  to  JMELS  in  the  form  of 
a statement  function  at  JM13,  and  the  matrix  indices  calculated 
at  JM16  and  JM21  use  this  function.  Previously  the  matrix 
indices  were  equal  to  the  appropriate  segment  numbers;  this  is  the 
case  when  MP  = 0 above. 
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LFACTR 


"1 


PURPOSE:  to  perform  the  Gauss-Doolittle  factorization 

calculations  on  two  blocks  of  the  matrix  in  core  storage.  This 
routine  in  conjunction  with  FACIO  factors  a matrix  which  is  too 
large  for  core  storage  into  an  upper  and  lower  triangular  matrix 
using  the  Gauss-Doolittle  technique.  The  factored  matrix  is  used 

by  L,  UN  SCR  and  LTSOLV  to  determine  the  solution  of  the  transposed 
T T T 

matrix  equation  x A =B  . 

MODIFICATIONS:  Minor  optimization  changes  were  made  in  the  code. 

The  new  complex  variable  AJR  is  used  in  place  of  the  array  element 
A(J,R)  in  the  innermost  DO  loop  of  steps  2 and  3 (see  listing).  AJR 
is  used  again  in  place  of  1.  /A(J2Pi,R)  in  the  DO  loop  of  step  5. 


MAIN  (modified) 

PURPOSE:  to  control  the  input,  output  and  the  flow  of  the 

Antenna  Modeling  Program. 

MODIFICATIONS:  The  modifications  to  the  main  code  are  simple  in 

nature  and  will  be  discussed  individually  in  the  list  below.  All 
the  changes  relate  to  the  three  new  functions  of  AMP2:  calculations 
involving  wire  and  surface  structures,  use  of  time  saving  approxi- 
mate matrix  elements,  and  the  precautionary  file  dumping  for 
restart. 

Modification  list: 

MA33  inclusion  of  the  KH  and  DP  mnemonics  for  the 

approximate  matrix  element  and  file  dump  data 
cards  respectively 

MA43  call  for  time  at  execution  start 

MA71  no  segment  check 

MA87-MA97  printing  of  geometry  data  related  to  surface  patches. 

A A A 

The  patch  normal  is  computed  from  n=  _+  tj  x 
where  the  plus  sign  is  used  for  a right  handed  system 
(tj,  t^,  n),  and  a minus  sign  for  a left  handed  system; 
this  information  is  stored  in  the  SALP  array.  The 
x,  y,  z components  of  n are  temporarily  stored 
in  TMP1,  TMP2,  TMP3  respectively  for  printing 
MA102-MA108  minor  data  checking  and  defining 
NEQ  = total  number  of  unknowns 

NPEQ  = number  of  unknowns  in  a symmetric  section 
NOP  = number  of  symmetric  sections 

MA109-MA1 33  this  section  of  code  determines  the  matrix  blocking 
parameters  for  out  of  core  matrix  problems.  The 
size  of  the  matrix  is  now  determined  by  NEQ  and 
NPEQ  and  these  two  variables  have  replaced  N and 
NP  respectively  in  this  section  of  code 
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MA160  initialization  of  the  parameter  RKH  (see  MA213 

below) 

MAI  72  initialization  of  the  parameter  IDUMP 

MA193  test  for  mnemonic  KH 

MA195  test  for  mnemonic  DP 

MA21  3-MA21 9 setting  RKH  equal  to  input  value 

RKH  = the  separation  distance  criterion  in  wavelengths 

when  approximate  matrix  elements  will  be  used. 
MA255 -MA257  The  only  ground  allowable  when  using  surface 

patches  is  a perfectly  conducting  ground.  This  code 
checks  that  condition 

MA258-MA360  near  field  calculations  are  not  allowed  for  the  case 
of  surface  patches.  This  code  checks  this 
condition 

MA454  no  segment  condition  checked 

MA461-MA468  frequency  scaling  of  patch  geometry  parameters 
MA506  NROW  substituted  for  N in  the  CMSET  calling 

sequence,  and  RKH  is  added  to  the  calling  sequence 
MA513  NPEQ  is  substituted  for  NP  in  FACTRS  call 

MA593  no  segment  condition  check 

MA624-MA641  This  section  of  code  prints  the  magnitude  and  phase 
of  the  two  surface  current  components  on  patches, 
and  it  prints  the  x,  y,  z components  of  the  total 
patch  current.  The  variables  ETH,  EPH,  EX,  EY, 
and  EZ  are  used  as  temporary  storage  during  the 
calculations.  ETH  and  EPH  are  set  equal  to  the 
current  components  1 and  2 respectively  on  a patch 
while  EX,  EY  and  EZ  are  used  for  the  x,  y,  z 
components  of  the  total  patch  current. 
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MAT  FIL 

PURPOSE:  to  fill  the  CM  array  with  matrix  elements  representing 

fields  due  to  wire  segment  currents  (either  E field  on  a segment  or 
H field  on  a patch). 

METHOD:  As  discussed  in  the  CMSET  writeup,  the  basis  function 

for  the  source  segment  current  extends  onto  the  adjacent  segments, 
but  the  entire  support  of  the  basis  function  is  not  integrated  at  one 
time.  Rather,  three  functions  are  integrated  simultaneously  when 
integrating  over  a given  segment;  one  function  for  the  segment  itself, 
and  the  other  two  for  the  adjacent  segments.  Thus,  MATFIL  places 
these  contributions  into  the  proper  matrix  elements  or  calls  the 
routine  JMELS  for  the  case  of  multiple  segments  connected  to  an  end. 
When  the  matrix  contribution  has  been  computed  by  the  current 
element  expression  (routine  APRXE  or  APRXH),  only  one  element 
contribution  is  obtained,  and  this  element  corresponds  to  the  source 
segment  itself.  This  condition  is  signaled  to  the  MATFIL  routine 
by  the  parameter  IFLG. 

The  proper  row  in  the  transpose  structure  matrix  for 
contributions  related  to  the  segment  j is  computed  by 

l = 2 MP  [ j -1/NP|  + j 

where  1 is  the  matrix  location,  MP  is  the  number  of  patches  in  a 
symmetric  section,  NP  is  the  number  of  segments  in  a symmetric 
section,  and  the  segments  are  numbered  consecutively  from  1 to  N 
the  total  number  of  segments.  The  brackets  imply  taking  the  integer 
part  here.  The  origin  of  the  expression  can  be  seen  by  referring 
to  figure  9. 

The  sign  of  the  contributions  to  the  matrix  elements 
of  segments  adjacent  to  j is  determined  by  the  reference  directions 
of  the  adjacent  segments  compared  to  j.  The  connection  data  of  the 
adjacent  segments  (stored  in  the  ICON  arrays)  is  checked  in  order 
to  determine  the  proper  sign.  For  the  case  of  a segment  connected 
a surface,  the  connection  parameter  is  assigned  a value  greater 
than  10000.  This  case  is  treated  in  the  same  manner  as  a segment 
connected  to  a perfect  ground;  the  current  is  interpolated  to  the 
segment  image  which  means  the  contribution  is  added  to  the  matrix 
element  associated  with  segment  j. 
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SYMBOL  DICTIONARY: 


CM 

ETI 

ETR 

IF  LG 

IPR 

J 

JCOl 

JC02 

JL(K) 


= array  for  core  storage  of  the  transposed  structure 
matrix,  or  blocks  of  the  matrix 
= arrays  containing  respectively  the  imaginary  and 
real  parts  of  the  three  contributions  to  the  wire 
source  matrix  elements 

= flag  indicating  whether  one  or  three  term  contributions 
are  being  passed  to  MATFIL 
= column  number  in  CM  array  for  elements 
= source  segment  number 
= ICONl(J) 

= ICON2(J) 

= statement  function  determining  row  position  in 


CM  array 

JLOC  = integer  variable  used  as  row  index 

NCOL  = number  of  columns  in  CM  array 

NROW  = number  of  rows  in  CM  array 


VARIABLES  IN  COMMON: 

ICON  1 , ICON2,  JIX,  JIZ,  JOX,  JOZ , MP,  NCIX, 

NCIZ , NCOX,  NCOZ , NP  (other  variables  appear  in  common 
blocks  in  MAFIL,  but  are  not  used,  see  listing). 
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MOVE  (modified) 
PURPOSE: 


to  rotate  and  translate  previously  defined  segments 
and  patches,  either  moving  the  original  structure  or  leaving  it 
fixed  and  producing  duplicates  of  it. 

MODIFICATION:  The  transformation  of  segment  coordinates  is  the 

same  as  in  program  AMP.  The  new  code  from  M064  to  MO103 
transforms  patch  coordinates  in  the  same  way  as  segments.  The 
coordinates  of  the  patch  center  are  transformed  at  MO80  to  MOS2, 
the  vectors  t^  at  MO86  to  MO88,  and  the  vectors  t^  at  M092  to 
M094. 


NETWK  (modified) 

PURPOSE:  To  solve  for  the  voltages  and  currents  at  the  ports 

of  non-radiating  networks  which  are  part  of  the  antenna.  This 
routine  also  is  involved  in  the  solution  for  current  when  there  are 


no  non-radiating  networks,  and  computes  the  relative  driving  point 


matrix  asymmetry  when  this  option  is  requested. 


MODIFICATION:  Only  minor  changes  have  been  made.  NEQ, 

computed  at  NT  19,  is  the  total  number  of  equations  to  be  solved. 
NEQ  replaces  N as  a do  loop  limit  at  several  places  and  all  calls 
to  SOLVES  have  the  number  of  patches,  M,  and  the  number  of 
patches  in  a symmetric  cell,  MP,  in  the  parameter  list. 
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PATCH 


to  define  and  modify  the  data  for  surface  patch 


PURPOSE: 


geometry. 

METHOD:  Subroutine  PATCH  consists  of  three  independent 

parts.  The  first  is  entered  through  a call  to  PATCH,  the  second 
through  entry  point  PACHS  at  PA45  and  the  third  through  entry 
point  SUBPH  at  PA 90. 


PART  1: 

The  first  section  defines  a single  new  patch  with 
center  point  coordinates  (XC,  YC,  ZC),  normal  vector  n = cos  a 
cos  0 x + cos  cx  sin  fj  y + sin  01  z where  Cl  = AL  and  /3  = BT , and 
area  AR.  Patch  data  is  stored  in  common  block/DATA/in  the 
same  arrays  as  segment  data  but  starting  at  the  tops  of  the  arrays 
and  filling  decreasing  locations  as  patches  are  input. 

PART  2: 

The  section  from  PA45  to  PA86  forms  a flat  surface 
of  patches  by  shifting  the  last  patch  previously  entered  in  the  data 
arrays.  NX  new  patches  are  first  generated  with  successive  shifts 
of  distance  XC  in  the  x direction.  Then  NY  new  rows  are  generated 
by  shifting  the  resulting  row  of  patches  by  the  distance  YC  in  the  y 
direction.  Areas  and  orientations  of  the  new  patches  are  the  same 
as  for  the  original  patch. 

PART  3: 

The  code  from  PA90  to  PA147  divides  patch  number 
NX  into  four  new  patches  each  having  1/4  of  the  area  of  the  original 
patch.  The  four  new  patches  are  numbered  NX  through  NX  + 3 and 
all  patches  following  the  original  patch  number  NX  are  incremented 
in  number  by  3.  Since  patch  data  is  stored  in  the  arrays  of  common 
block /DATA  /from  the  top  down  with  increasing  number  the  data  for 
patches  NX+1  through  M must  be  shifted  down  in  the  arrays  by  3 
locations  to  leave  room  for  the  3 new  patches.  This  is  done  in 
the  code  from  PA94  through  PA109.  The  original  patch  is  divided 

A A 

along  lines  parallel  to  the  vectors  t j and  t ^ and  the  new  patch 
data  stored  in  data  array  in  statements  PA110  through  PA147. 
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SYMBOL  DICTIONARY: 


IPSYM 


NXP 


NYP 

SALN 

SALP 


=•  area  of  patch 

= array  containing  patch  areas 

= t> 

- symmetry  flag 
= do  loop  parameter 
= do  loop  parameter 

= length  of  arrays  in  common  block/DATA/ 

= total  number  of  patches  input 
= index  for  location  of  patch  data  in  arrays 
= number  of  patches  in  a symmetric  section 
= total  number  of  segments 

= number  of  segments  in  a symmetric  section 
= number  of  increments  in  x in  part  2,  number 
of  the  patch  to  be  divided  in  part  3 
= NX+1 

= number  of  increments  in  Y in  part  2 
= NY  + 1 

= temporary  storage  variable 

= data  array  for  patches.  If  (t  t^,  n)  forms  a 
right  hand  coordinate  system  the  value  in  SALP 
for  that  patch  is  +1.  , if  left  hand  SALP  is  -1. 


= temporary  storage  for  x,  y and  z components  of  t , 


= temporary  storage  for  x,  y and  z components  of  t ^ 


= arrays  containing  x,  y and  z components  of  t j 


% 


T2X 

T2Y 

T2Z 

X 

XA 

XC 

XST 

XW1 

XW2 

Y 

YC 

YW 1 
YW2 
Z 

ZC 

ZW1 

ZW2 


= arrays  containing  x,  y and  z components  of  t ^ 


= array  containing  x coordinates 
= temporary  storage  variable 
= x coordinate  of  patch  center  in 
in  part  2 

= temporary  storage  variable 
= temporary  storage  variable 
= temporary  storage  variable 
= array  containing  y coordinates 
= y coordinate  of  patch  center  in 
in  part  2 

“ temporary  storage  variable 
= temporary  storage  variable 
= array  containing  z coordinates 
= z coordinate  of  patch  center 
= temporary  storage  variable 
= temporary  storage  variable 


of  patch  centers 
part  1,  x increment 


of  patch  centers 
part  1,  y increment 


of  patch  centers 
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PCINT 


PURPOSE:  to  compute  the  interaction  matrix  elements  representing 

the  electric  field  tangent  to  a segment  connected  to  a surface  due  to 
the  current  on  the  four  patches  around  the  connection  point. 


METHOD:  The  four  patches  at  the  base  of  a connected  wire  are 

A A 

located  as  shown  below  with  respect  to  the  vectors  t and  t 2 


• 3 

• 2 

A 

t2 

3 

• 4 

• 1 

1 

d 


where  patch  numbers  indicate  the  order  of  the  patches  in  the  data 
arrays.  The  position  of  a point  on  the  surface  is  defined  by 


p (Sj,  S2)  = p0  + Sj  tj  + S2  t 2 


where  p0  is  the  position  of  the  center  of  the  four  patches,  where 
the  wire  connects,  and  Sj  and  S2  are  coordinates  measured  from  the 
center.  Representing  the  current  over  the  surface  by  J (S^,  S2) 
the  currents  at  the  centers  of  the  four  patches  are 
Jj  = J (d,  d) 

J2  = J (-d,  d) 

J3  = J (-d,  -d) 

J4  = J (d,  -d) 


and  the  current  at  the  center  of  the  segment, 
is  lu  . The  current  interpolation  function  is 

7(sr  S2)  =(“  (Sr  s2)-  E g.iSj,  S2I  r 


flowing  onto  the  surface 

I *»  *i  ,sr  s2)7i 
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where  f (S^ , S^)  = 


Slt  1 + _S2t  2 
2n  {S*  + S 


1 1 = f (d,  d)  = (t  j + t2)/(4nd) 

^2  = f (-d,  d)  = (-t^  + t2)/(4rrd) 
f ^ = f (-d,  -d)  = (-tj  - t2) / (4 rf d) 

r4  = t (d,  -d)  = (tA  - ^)/(4rTd) 

gj  (S1,  S2)  - (d  + Sj)  (d  + S2)/(4d2) 

g2  (Sr  S2)  = (d  -Sj)  (d  + S2)/(4d2) 

g3  (Sr  S2)  - (d  - Sj)  (d  - S2)/(4d2) 

g4  (Sr  S2)  = (d  + Sx)  (d  - S2)/(4d2) 

If  Tj  (p)  dA  and  T 2 (p)  dA  are  the  electric  fields  at  the  center  of 
the  connected  segment  due  to  unit  currents  at  p on  the  surface  dA, 
flowing  in  the  directions  t^  and  t2  respectively,  the  nine  matrix 
elements  to  be  computed  are 


E1  = 4gl  (S1-  S2)  * ' ^l  ("P)  dA 

E2  =4  g2  (S1’  S2)  * ' ?1  dA 

E3  =Jsg3  (Sr  S2)  i • fl  (?)  dA 

E4  =ls4  <Si>  S2 ) r*  (?)  ^ 

o 

E5  % gl  (S1*  S2}  * ' TZ  ** 

E6  =ig2  (S1’  s2)  1 ’ f2  (P}  dA 

E?  =/sg3  (Sj,  S2)  i • f2  (?)  dA 

Eg  = /g4  (S,_.  S,)  I*  . r2  (?)  dA 

e,=  ||[((h(Si,  s2)-  '«,)  [i  . rl 

[i  • T2  (?)))  | dA 


(p)j  + [h  (Sr  S2)  ’ t2 
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where 


h (S^  s2)  = f (sr  s2)  - l 


g:  (S 


1 ’ S2>fi 


i = the  unit  vector  in  the  direction  of  the  connected  segment. 

The  integration  is  over  the  total  area  of  the  four  patches  and  is 
performed  by  numerical  quadrature.  The  number  of  increments 
in  S1  and  used  in  integration  is  set  by  the  variable  NINT. 

SYMBOL  DICTIONARY: 


CABI 

D 

DA 

DS 

E 


El 

E1X 

El  Y 

E1Z 

E2 

E2X 

E2Y 

E2Z 

E3 

E4 

E5 

E6 

E7 

E8 

E9 

FCON 

FI 

F2 

GC©N 


= x component  of  i 
= d 

= area  of  the  surface  element  used  in  integration 
= width  of  the  surface  element  of  area  DA 

• • • 


array  used  to  return  the  values  E^,  E^, 


= E 


1 


x,  y and  z components  of  F^  (p)  DA  at  PC46. 
At  PC47  E1X  is  set  to  i • Tj  (p)  DA 
E, 


= x,  y and  z components  of  T2  ( p)  DA  at  PC46. 
At  PC48  E2X  is  set  to  i * 1^  (p)  DA. 


= E. 


= E, 


= E. 


= E 


8 


'9 

/I 

h (S 


l/(4rrd)  factor  in  , T 


r S2*  ’ i 


= h<S!’  S2> 

1 ^ 


= l/(4d  ) factor  in  g^  (Sj,  S^), 
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G1 

G2 

G3 

G4 

11 

12 

NINT 

SABI 

SALPI 

51 

52 
S2X 
TPI 
T1XI 
T 1 YI 
T1ZI 
T2XI 
T2YI 
T2ZI 
XA 
XI 

xs 

xss 

XI 

YI 

YS 

YSS 

YI 

ZI 

ZS 

ZSS 

Zl 


= gi  <S..  S ) 

■ *2> 

= S3  (Sr  s2) 

= g4  (Sr  s2) 

= do  loop  index 
= do  loop  index 

= number  of  steps  in  S^  and  S2  used  in  approximating 
the  integrals  for  E^,  E^,  • • • 

= y component  of  i 
= z component  of  i 


= initial  value  of  S2 

= 2rr 

= x,  y and  z components  of  t ^ 

= x,  y and  z components  of  t 2 
= area  of  each  of  the  four  patches 

= x coordinate  of  the  c enter  of  the  connected  segment 
= x component  of  "p  (S^  S2) 

= initial  x coordinate  of  p (Sj , S^) 

= x component  of  "p  (d,  d)  used  as  reference  for 
computing  p (S^  S^) 

= y coordinate  of  the  center  of  the  connected  segment 
= y component  of  p (S^,  S2) 

= initial  y component  of  p (S^,  S2) 

= y component  of  p (d,  d) 

- z coordinate  of  the  center  of  the  connected  segment 

- z component  of  p (S^,  S2) 

= initial  z component  of  p (S^,  S2) 

= z component  of  p (d,  d) 
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REFLC 


PURPOSE:  To  generate  segment  data  for  structures  having  plane 

or  cylindrical  symmetry  by  forming  symmetric  images  of  a 
previously  defined  structure  unit. 

MODIFICATION:  Following  each  section  of  the  code  that  operates  on 

segments,  a section  has  been  added  to  perform  the  same  operation 
on  patches.  This  involves  reflecting  or  rotating  the  location  of 

A A 

the  patch  center  and  the  vectors  tj  and  t^-  In  addition,  each  time 
that  a paten  is  reflected  in  a coordinate  plane  the  value  of  SALP 
for  this  patch,  which  has  unit  magnitude,  is  changed  in  sign.  A 
value  of  +1  for  SALP  indicates  that  (t^,  t^,  n)  are  related  by 

A « A A A A 

tj  x t^  - n while  -1  indicates  that  x = -n.  All  patches  generated 
by  subroutine  PATCH  have  SALP  = +1. 

RE46  to  RE65  reflects  patches  along  z axis  (about  x,  y plane). 

RE90  to  RE109  reflects  patches  along  the  y axis. 

RE133  to  R.E152  reflects  patches  along  the  x axis. 

RE181  to  RE204  rotates  patches  about  the  z axis  to  form  a 

structure  having  cylindrical  symmetry. 
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lower  and  upper  triangular  matrix,  E is  the  structure  excitation 
vector,  and  I is  the  unknown  current  vector.  For  the  symmetric 
structure  case,  the  solution  is  generated  using  uncoupled  mode 
solutions . 

MODIFICATIONS:  The  structure  excitation  vector  which  is  the  input 

B array  in  SOLVES  is  filled  in  subroutine  ETMNS.  Wire  excitation 
parameters  are  filled  from  B ( 1 ) to  B(N)  and  surface  excitation 
parameters  from  B(N  + 1)  to  B(N  + 2M)  where  N and  M are  the  total 
number  of  segments  and  patches  respectively.  This  corresponds 
to  the  proper  arrangement  of  the  array  for  an  unsymmetric  structure 
as  can  be  seen  by  the  matrix  form  in  figure  9.  For  the  case  of 
a symmetric  hybrid  structure,  however,  the  arrangement  must 
correspond  to  the  arrangement  of  equations  as  shown  in  figure  9; 
that  is,  the  wire  parameters  followed  by  the  surface  parameters 
for  each  symmetric  section.  The  required  rearrangement  is  per- 
formed by  the  new  coding  inserted  from  SS15  to  SS33.  On  the  other 
hand,  the  solution  vector  which  is  returned  to  the  calling  program 
in  the  B array  is  expected  to  be  arranged  with  the  wire  currents  from 
B(l)  to  B(N)  and  the  surface  currents  from  B (N  + 1)  to  B(N  + 2M). 
Therefore,  the  ordering  discussed  above  for  the  symmetric  case 
must  be  reversed  before  control  is  returned  to  the  calling  program. 
This  reordering  is  performed  by  the  coding  inserted  from  SS89  to 
SSI  07. 

Two  new  variables  have  been  defined;  NPEQ  which 
is  equal  to  the  number  of  unknowns  in  a symmetric  section  and 
NEQ  which  is  equal  to  the  total  number  of  unknowns.  For  the  case 
of  no  symmetry  NPEQ  = NEQ.  The  variable  NPEQ  takes  over  the 
function  of  the  NP  variable  in  SOLVES.  This  replacement  has  been 
made  at  SS39,  SS41,  SS48,  SS60,  SS63,  SS64,  SS67,  SS75,  SS77, 
and  SS84. 
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U DOTES 

PURPOSE:  to  compute  the  E field  along  wires  due  to  surface 

currents  and  to  fill  the  corresponding  matrix  elements. 

METHOD:  The  column  range  in  the  transposed  structure 

matrix  between  which  matrix  elements  are  to  be  filled  is  passed 

to  the  routine  through  the  parameters  II  and  12.  The  outer  most 

loop  in  the  routine  is  a loop  over  wire  observation  points  which 

lie  within  this  range.  Internal  to  this  is  a loop  over  all  the  source 

patches.  The  source  loop  is  actually  composed  of  two  loops;  the 

first  loop  is  over  symmetric  sections,  and  the  second  is  over 

patches  in  a symmetric  section.  The  electric  field  due  to  a surface 

patch  is  computed  by  calling  the  routine  UNERE,  and  the  component 

of  the  field  tangent  to  the  wire  is  computed  by  doting  with  u . = 

u x + u .y  + u z the  segment  direction.  The  result  is  added  to 
xi  yi  zi 

the  appropriate  matrix  element.  For  the  case  when  the  observation 
segment  is  connected  to  the  surface  (indicated  by  an  ICON  parameter 
greater  than  10300),  the  elect  ric  field  due  to  the  four  patches 
around  its  base  are  calculated  by  the  routine  PCINT  rather  than 
UNERE.  As  discussed  in  the  theory  section,  a special  interpolation 
function  is  used  for  the  current  on  these  patches  and  the  fields  are 
calculated  by  more  careful  integration.  If  a ground  plane  is  present, 
UNERE  is  called  to  compute  the  field  of  the  image  patch.  The 
matrix  contribution  of  the  image  is  added  to  the  same  matrix  element 
as  the  source  patch. 

Summary  of  the  coding  is  as  follows: 
initialization 
wire  observation  loop 

checking  for  a connection  segment;  in  addition 
checking  which  end  is  connected 
loop  over  symmetric  sections 

computing  starting  row  location  -1  for  filling  the 
symmetric  section  (see  figure  9) 


k 


UD20-UD25 

UD27-UD80 

UD37-UD44 

UD46-UD80 

UD47 
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UD48-UD80  loop  over  patches  in  a symmetric  section 
UD59-UD80  ground  loop 

UD64-UD72  coding  for  the  case  of  patches  at  the  base  of  a 
connection  segment 

UD75  routine  calculating  E field  of  general  patch 

UD77-UD78  matrix  fill  for  general  patches 


SYMBOL  DICTIONARY: 


CAB 

CABI 

CM 

EMEL 


= array  containing  u 


= u 


xi 


= array  for  the  transpose  structure  matrix  elements 
= array  containing  matrix  elements  for  the  inter- 
polation case  computed  in  PCINT 


E1X 
El  Y 
E1Z 
E2X 
E2Y 
E2Z 
FSIGN 


= components  of  E field  due  to  surface  current 
component  in  the  direction  t ^ 

= components  of  E field  due  to  surface  current 
component  in  the  direction  t ^ 

= 1 for  end  2 of  segment  connected  to  surface,  -1 
for  end  1 


I 

ICGO 

IEND 

IL 


IP 

IPCH 


11 

12 


= observation  segment  number 

= parameter  used  in  filling  the  matrix  elements  of 
patches  at  a connection  segment  base 
= last  observation  segment  in  the  input  column  range 
= row  location  corresponding  to  the  connection  segment 
as  a source,  this  location  is  needed  because  of  the 
patch  interpolation  function 
= ground  loop  index,  1 = free  space,  2 = image 
= storage  location  of  lowest  numbered  patch 
at  the  base  of  a connecting  wire  segment, 
after  UD43 

= first  and  last  column  numbers  respectively  to  be 
filled  in  the  transposed  structure  matrix 
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J 

JL 

JS 

K 

L 

NCOL 

NOP 

NROW 

RFL 

S 

SAB 

SABI 

SALP 

SAL  PI 

T1X 

T1Y 

T1Z 

T2X 

T2Y 

T2Z 

XS  ] 

YS  ' 


ZS 


ZSEP 


= loop  parameter 

= row  index  for  matrix  element  filling 

= array  location  for  patch  data,  after  UD49 

= column  number  in  CM  array  for  filling 

= index  for  loop  over  symmetric  sections 

= number  of  columns  in  CM 

= number  of  symmetric  sections 

= number  of  rows  in  CM 

= parameter  used  for  image  calculations 

2 

= array  containing  patch  area  ( /X  ) 

= array  containing  u^ 

= u . 

Y1 

= array  containing  u^ 

= u . 
zi 

= arrays  containing  components  of  t ^ 

= arrays  containing  components  of  t ^ 

= arrays  containing  surface  patch  center  point 
coordinates  of  patches  ( /X) 

= z separation  of  source  and  observation  point 


VARIABLES  IN  COMMON: 

ALP,  BET,  BI,  ICON1 , ICON2,  ITAG,  KSYMP, 
LD,  M,  MP,  NP,  SI,  T1XI,  T1YI,  T1ZI,  T2XI,  T2YI,  T2ZI,  X, 
XI,  Y,  YI,  Z,  ZI  (other  variables  in  common  not  referenced  in 
UDOTES,  see  listing). 
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UNERE 


PURPOSE: 


to  calculate  the  electric  field  due  to  unit  currents 


in  the  t ^ and  t^  directions  on  a surface  patch. 


METHOD: 


The  electric  field  due  to  a patch  j is  calculated  by 


the  expression 


i8rr  [ \ (R/Xr  / J 

t(3  + i6wR/X  -4,2(R/))2\x.  (r/x,  (R/X)  1 e'2nR/^ 

' (R/X)  / J J 


where  Jj  = t^  + J^j  t^j  , R is  the  vector  from  the  source  to  the 
observation  point,  and  A is  the  area  of  the  patch.  For  UNERE, 
Jjj  and  J^j  are  unity.  The  expression  above  for  a single  patch  is 
obtained  from  the  surface  integral  and  leading  constant  in  equation  3 
where  constant  current  and  one  step  integration  are  used  for  the 
patch. 

SYMBOL  DICTIONARY: 


CONST 


= intermediate  complex  quantity; 


- i Z tt  R/X 


at  UE15,  and  Q2  (t^  ’ (R/X))  at  UE18,  and 

Q2  (t  • (R/X))  at  UE22.  Q2  is  defined  below 
‘-J 


y,  z components  of  E field  due  to  for  = 1 


= x,  y,  z components  of  E field  due  to  J for  = 1 


_/-l  -UttR/X  + 4tt  (R/X)2  \ 
V (R/X)3  / 

( 3+i6nR/X  - 4y  2 (R/X)2\ 

'V  (r/x)5  ) 


ER,  for  ER  at  UE  15 


ER,  for  ER  at  UE15 


= R/X 
= (R  / X ) : 


= x,  y,  z components  of  R/X 


T1XI 

T1YI 

T1ZI 


T2XI 

T2YI 

T2ZI 


= (R/xr 

= AA. 

= 2rr 

= - 2ttR  / X 


= x,  y,  z components  of  t 
= 4n  (R/X)2 


= x,  y,  z components  of  t _ . 


VARIABLES  IN  COMMON: 


T1XI,  T1YI,  T1ZI,  T 2X1,  T2YI,  T2ZI,  XI,  YI,  ZI 


1 


WIRE 


PURPOSE:  To  compute  segment  coordinates  to  fill  common/DATA/ 

for  a straight  line  of  segments. 

MODIFICATION:  MP  is  set  equal  to  M at  WI14  since  any  existing 

symmetry  is  destroyed  by  a new  wire. 
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5.0  ARRAY  DIMENSION  LIMITATIONS 

Limits  on  the  antenna  model  due  to  array  dimensions  are  the 
same  in  program  AMP2  as  in  program  AMP  (see  reference  3)  except  for 
the  matrix  storage  limit  and  the  maximum  number  of  segments  and  patches. 
If  N is  the  number  of  segments  in  a model  and  M the  number  of  patches, 
the  minimum  array  dimensions  are  as  follows: 

In-Core  Matrix  Storage  (Ir): 

Arrays:  COMMON  CM(I^)  or  AR(2Ir) 

Limit  Constant:  IRESRV  = Ip  at  MA45  of  MAIN 

I is  the  amount  of  core  storage  available  for  storage  of  the 
interaction  matrix  elements.  I must  be  at  least  two  times  (N  +2M)  and 
should  be  as  large  as  possible  since  a large  I will  reduce  the  amount  of 
file  manipulation  required  for  matrix  equation  solution  and  thus  can  sub- 
stantially reduce  running  time.  A problem  will  run  in  core,  without  file 

2 

storage,  if  the  number  of  complex  numbers  in  the  matrix  (N  +2M)  /L,  where 
L is  the  number  of  symmetric  sections,  is  not  greater  than  1^. 

Maximum  Segments  and  Patches  in  Model: 

Arrays:  COMMON/DATA/X(N+M),  Y (N+M),  Z(N+M), 

SI(N+M),  BI(N+M),  ALP(N+M),  BET  (N+M), 
ICONl(N+M),  ICON2(N+M),  ITAG(N+M) 

COMMON/ANGL/SALP(N+M) 

COMMON/CRNT /AIR (N),  AII(N),  BIR(N), 

BII(N),  CIR(N),  CII(N),  CUR (N  + 3M) 

COMMON/SAVE/IX(N+2M),  IP(N+2M) 

COMMON/ZLOAD/ZARRAY  (N) 

COMMON /SCRATM/D(N+2M)  or  Y(N+2M) 

SUBROUTINE  NETWK:  RHS  (N+2M) 

Limit  constant:  LD  = N+M  at  MA42  of  main  program 


J 
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6.0  SUBROUTINE  LINKAGE 


The  following  chart  shows  the  organization  of  subroutines 
in  the  AMP2  program.  All  possible  subroutine  calls  are  traced,  although 
in  a particular  run  only  certain  of  the  traces  will  be  followed.  Routines 
that  are  called  at  more  than  one  point  in  the  program  are  shown  as  separate 
blocks  for  each  call. 


[ 


runs  on  the  CDC6600  computer  system.  The  references  to  line  numbers 
in  the  text  of  this  manual  refer  to  the  line  numbers  on  this  list. 
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C 

c 
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PtfOGWAM  A**h2  I | NP  IT.O'/TPuT.TAP*  jl.1APfl2.TAPt  l 1*  T API  l ■•  • 1 A**E  i 5*  T APE 
l |6. T APf i n 

COMMON  /OAT  A/  LO»N.NP.M,»*p,«  ( *oo©»  .»  ( 1000  I ./  < 1000) *Sl  I 10001  «B1  4 100 
10)  • ALP  i 10001  *«E  n 1 000  i .ICON!  1 1*00) • KCN2  4 1 000 ) • I T *r.  ( 1 U00  ) • *LAM,  |PS 

^TM 

COMMON  CM « <.ooo» 

COMMON  /MA  7 PAP/  ICA*»£  .NLA*.)  *NMtSvM,^0VTM,Nf>»M 

COMMON  / S A vE  / I ■ <1S00  ) . IP  (|  -*0O) 

COMMON  /O*  MW?/  ICl .lC2.|C3.NRf  S*NP»ES. MIC* • IOuMP.TMOom.ExT IM 
COMM  IN  / AN  <L  / SALPlIOrO) 
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lLl*lS).  /LC41S).  J i'.IP  | «•)  • I G A A ( «•  ) ( JGNfPUO) 

0 I M£N -.|0N  COM  4 1 3*G ) • ( f Ap  4 * ) . A T S I ( 1 <4  ) * JSfCN  4 S)  * PNETfA).  MPOL43) 
DIMENSION  rNOPM  4 200  > 

DIMENSION  V 1 ■ f 1 » • T1T»1).  I W • 1 ) • 12x41)*  I ? V 4 1 ) • T ?Z  4 | ) 
EQUIVALENCE  1 C A8  I 1 ) • Af  P 1 1 > ) * ('.AHlDtHE!  (J>> 

EuUlVAifNCf  I T 1 * • 5 | ) • (TlY.AL**).  4117.  HE  T ) . IT2X«IC0*1)«  4T2Y*ICON 
12).  (T77.|T  AC.) 

InTEoE  & AIn.ATST  *Pn£T  ."POL*nRL* *hC  1».mCL  IF 

COMPLt*  CM.f  J,  VSANT.fT  ATI,  CU«,CO«  1.7  APPAr.fPO.7P  A If  2 

COmplEa  EX.Ev.E/*?PEO 

DAT  A 4 ITAP( I) <1*1. 7I/11.17.1  3. 14.IS.I6.1// 

OAT  A ATSI/7MCF .?Hf».2ML0.7HGN.^ME A.£mnT.2n*0*2HNF ,2HG0.2MMP*2hCM.2 
iMNA .?MAN.?MTL.?HPT.2MPS.2MKM.2MnP/ 

DATA  I<:FCN/Sm7.3.o,6m7.1.10*Sm?#3.3.3m1.0.3m1.0/ 

OATA  mpOL/6hl1NFAP,SmpIGhT.**mLFCT/«H'1L)*»hCip/1m  .NhCIPCLt/ 

OATA  PnFT/Nh  .2h  .ftMSTPAi^.PHKT.AHCPOSSF.lHn/ 

OATA  (GTP/6H  - • (jhpOmEO  *‘>H-  OIPE.GHCTIvE  / 

OATA  IGAX/6H  MAJDS.6H  MlNOw.bn  */E)*T..6ri  HOW.  / 

OATA  I GNTP/6H  MAJ0P.6H  AXIS  *6m  MINOR. t"  AXIS  .6M  VEU.6HTICAL  *6 
In  HOP  I 7 «6M0N  T AL  *6m  *6HTQTaL  7 

DATA  PI.TA.TO.FJ/3.141S926S.1.74532925E-02.S7.29S78.  <0..  1.)/ 

OATA  LOA0MX.NSMAX.nETmA/1S,10.30/*NOPMAX/<.00/*NOPmF/?00/*LO/1000/ 
CALL  SECOND  IF*TJm) 

ISTAPT=0 
IRFSRV=4000 
K =0 
K *K  ♦ 1 

IF  (K.GT.S)  K *5 

BEAD  UOi  A In*  (COM  (I**) *1*1*13) 

IF  (AIn.NE.ATSTUG)  ) GO  TO  3 

1 ST  ART  a 1 
GO  TO  1 

IF  (K.GT.l)  GO  TO  4 
PBrNT  141 
PRINT  1 42 
PRINT  1 4*3 

PBINT  14,4.  ( CON (I«K)  *1*1.13) 

IF  (AIn.EO.ATST(U)  ) GO  TO  2 
IF  (AIn.EO.ATST  ( 1 H Go  TO  R 
PRINT  14.5 
STOP 

CONTINUE 
MPCNT  *0 

SETTING  uP  GEOMfTR TC  OATA  IN  S*««.  OATAGN  AND  PRINTING 

CALL  OATAGN 
IFLOW*l 
NRES*N 
NPRES**.P 

IF  (N.FO.O)  GO  TO  7 
PPTNT  1 46 
PRINT  |47 
DO  6 1=1. N 
alp  I * alp ( I ) • to 

HET I *8F  T 4 I » * TO 

PRINT  148.  I«X(I).Y(I)*7(I)*Sl(I).ALPl*BFTI.BI(I). I CONI ( I ) . I • ICON? 
1(I)*ITAG(I) 

CALP*COS(ALP4  | ) ) 

SALPU)*SIN(ALP(I>) 

CAR  4 I)*CALP»COS(BCTU)  » 

SAR4l)=CALP»SIN(0ET(I) > 

IF  (SI<n.OT.I.C-20.ANO.8I(l).OT.l.E-20>  GO  TO  6 

PRINT  149 

STOP 

CONTINUE 

IF  (M.FO.O)  GO  TO  Q 
print  pm 

J=LO*l 

oo  « t*i*m 

J*.J-1 

TMP1*(T1T4.J)»T?7(  J)-T17(J)*T2y(  I)  >*»SALP(J> 

TMP2*(T17(  J)*T?M  J)-T  ,X<  J)«T2Z<  ))  ) • ^ALP  ( J) 

THP3*  (T1X  ( J)M7Y<  J)-Tl  Y (J)»T2x(  j)  )«SALP<  J) 

PRINT  2*>3.  I . ■ ( J)  *Y  ( J)  *7  ( J)  *TmP]  .TMP2.TMP3.RI  (J)*T1X(J).T1Y(J)«T12 
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96 

ft 
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MA 

9? 

c 

MA 

98 

c 
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MA 

99 

c 

0*  OOf-OF-CCKf 

MA 

100 

c 

MA 

101 

9 

NE<J*N*/>»“ 

MA 

102 

NPFO*HP«2*mp 

MA 

103 

NOM*Nf  ;/NPFQ 

MA 

1 Oft 

JF  «N,f 0.0. OP. ft. tQ. 0»  so  TO  10 

MA 

10S 

|F  (N/sP.f Cl.M/MP)  GO  TO  10 

MA 

106 

P«lNf  ?0ft.  N.NP.M.MP 

MA 

107 

S I OP 

MA 

1 08 

10 

NPO«*NFO 

MA 

109 

nPOmS  -%P£0 

MA 

110 

CALL  F BLOC*  (NftLOft^.NPHL*' .NL*ST.  IUFS»^«HEQ.nPFQ*  InTI 

MA 

in 

I f (NF  ..»<£  .NPf C>  GO  TO  1? 

MA 

112 

1»  (INT.EO.D  GO  TO  11 

MA 

113 

NC0l«NBf  O 

MA 

11“ 

1CASE  * 

MA 

lib 

GO  TO  IS 

MA 

116 

1 1 

nc  ol «2«npnl* 

MA 

in 

ICASE'.T 

MA 

118 

GO  TO  |S 

MA 

119 

12 

c 

o 

o 

MA 

120 

NCOL’NPf Q 

MA 

121 

NCOLS«»,P€0 

MA 

122 

icase  = 

MA 

123 

GO  TO  IS 

MA 

12“ 

13 

CALL  MLOC-  (NftLSrM,Nt>SYM.NLSY*».  1WFS»V.NPEQ*NPFG* INTI 

MA 

12b 

NCOL*€'*SPPL" 

MA 

126 

If  (lN7.CO.ll  go  TO  1ft 

MA 

127 

NCOLSxnPEQ 

MA 

128 

ICase  *4. 

MA 

129 

GO  TO  |S 

MA 

130 

1* 

NCOLS«<?»NPST»« 

MA 

131 
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MA 
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1^ 
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MA 
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MA 
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MA 
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MA 
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C 

MA 

lftO 

c 
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MA 

I“1 

c 

ano  EsofiLC  motrren,  and  testing 

FOP  PESTAPT 

MA 

1 “2 

c 

MA 

14  3 

IF  USTAPT.fO.O)  GO  To  18 

MA 

|44 

CALL  uncat 

MA 

1 4b 

GO  TO  18 

MA 

146 

16 

IF  (ICASE. lT.TI  GO  TO  1 ft 

MA 

147 

00  IT  T *1 • 7 

MA 

148 

NUN1TsTTAP( I I 

MA 

149 

PE  Pi  no  nunjt 

MA 

lbO 

end  file  nunit 

MA 

1 bl 

PfPINO  NUNIT 

MA 

lb2 

17 

Continue 

MA 

1S3 

18 

CONTINUE 

MA 

lb4 
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I*TTP=0 

MA 

163 

NET«0 

MA 

164 

NPAOLsP 

MA 

16S 

NEAP»-l 

MA 

166 

IPTFLGa-Z 

MA 

167 

IFAPa-; 

MA 

168 

/»ATI*C»»Pl  K(1.*0*> 

MA 

169 

IprftFaQ 

MA 

170 

|P£0*0 

MA 

171 

IOUPP*0 

MA 

172 

C 

MA 

173 

C 

main  Input  SECTION  - StANOAPO  PFAO 

STSTENENT  - JUMPS  TO  APPPO- 

MA 

174 

C 

P»? ATE  SECTION  FOP  SPECIFIC  PAPAMETEP  SET  UP 

MA 

17b 

C 

MA 

176 

19 

PE  AD  1 SI  . A IN,  f T HP!  . I 7NP2.  I TMP  1.J  T“PAfTNPl  tTHP^fT  •*P3*TMPA*  IMPS*  THP 

MA 

177 

18 

MA 

178 

MPCNT  smPCNT • 1 

MA 

179 

PPfNT  j 52*  HPCNT.AIN. ITMP] • ITMP?tlTMPl,ITNPA«TNPl.TMP2.TNP3«THP8*T 

MA 

180 

IMPS*  TNP8 

MA 

181 

IF  (AlN.CQ.ATSr (2l 1 GO  TO  ?1 

MA 

182 

IF  (AIs.EO.ATST (3»|  GO  TO  ?3 

MA 

163 

IF  (AK.EO.ATsTIAn  Go  TO  ?T 

MA 

J 8ft 

\f  (Als.CO.ATsTlS) ) GO  TO  31 

MA 

1 85 

IF  ( A IN.EO. ATST (6) I GO  TO  3S 

MA 

186 

IF  ( AfN.EO.ATST (14) » GO  TO  JS 

MA 

167 

IF  (AIu.FO.  ATST  (ISM  GO  TO  38 

MA 

|66 

IF  (AtN.EO.ATST (7| ) GO  TO  46 

MA 

169 

IF  ( A IsaEQ.ATST (8» ) On  TO  AO 

MA 

190 

IF  (AIn.E0.ATST(9M  Go  TO  A3 

MA 

191 

IF  (Afs.EO.ATSTi 10) » GO  TO  AS 

MA 

192 

IF  MIN.EO.ATSTU7)  ) GO  TO  22 

MA 

193 

IF  (AIN.EO.ATSTU2) ) GO  TO  1 

MA 

194 

118 


\f  T (1*11  r.O  TO  3* 

MA 

19S 

IF  (AI-..NC  .ATST  1 13)  1 •'0  To  20 

MA 

196 

If  llT-Pl.Nf .0)  CALL  r A TL  Of. 

MA 

197 

STOP 

MA 

198 

? 0 

PRINT  I S 3 

MA 

199 

STOP 

MA 

200 

f 

MA 

201 

c 

F*»F&iiiNC»  PA»A*«€fC»*S 

MA 

202 

c 

MA 

203 

21 

IFwQ*l tmPI 

MA 

209 

NF  MQ*  l '«*P2 

MA 

20S 

IF  INFPO.f  0.0)  nFRij*| 

MA 

206 

f Hh/s|mP1 

MA 

207 

Dt  L F ®'3  - T MP7 

MA 

208 

IF  (IPfn.fO.il  7Pn<>M«*G. 

MA 

209 

100*1 

MA 

210 

IFlO«*? 

MA 

211 

GO  TO  19 

MA 

212 

c 

MA 

213 

c 

MATPIA  INTEGRATION  LIMIT 

MA 

219 

c 

MA 

21S 

22 

B«h«TMO| 

MA 

216 

100*1 

MA 

217 

|FlO»*2 

MA 

216 

GO  TO  19 

MA 

219 

c 

MA 

220 

c 

LOADIN'--  PAOAMfTfPS 

MA 

221 

c 

MA 

222 

23 

IF  ( IFL0M.fQ.  II  GO  TO  2h 

MA 

223 

NL 0*0=1 

MA 

229 

1 F LOW*  3 

MA 

22S 

IF  ( IGO.GT.2)  1G0  = ? 

MA 

226 

IF  (IT mP 1 . F 0 , ( - 1 ) ) GO  TO  19 

MA 

227 

?9 

NL0A0*NL0A0*1 

MA 

228 

IF  (NLOAD.LC.lOADM*)  r,o  TO  PS 

MA 

229 

PR  |NT  JS9 

MA 

230 

STOP 

MA 

231 

PS 

LOTVP(KLOAO)*! T-Pl 

MA 

232 

L0TAG(KL0AO)*lTMP? 

MA 

233 

IF  ( I T-P9.EQ.0)  IT*P<»tITMP3 

MA 

239 

LOTAGF (NLOAO) *ITMP3 

MA 

235 

LOTAGT(NLOAO)*|TNP«. 

MA 

236 

IF  ( ITPPt.GE.ITMPI)  Go  TO  26 

MA 

237 

PRINT  1S5.  NLOAO.ITMPi,ITMP<* 

MA 

238 

PRINT  1 S9  • ISfCNO) 

MA 

239 

STOP 

MA 

290 

?6 

?LR(NLOAO>  *TMPl 

MA 

291 

2L I (NL0A0I * TMP2 

MA 

292 

l LC (NLOAD) *TMP3 

MA 

293 

GO  TO  19 

MA 

299 

C 

MA 

295 

C 

ground  parameters  unofb  t*f  antfnna 

MA 

296 

c 

MA 

297 

?7 

IFlOh*<» 

MA 

296 

IF  (IG0.GT.2I  I GO*? 

MA 

299 

IF  (ITMP1.NE.I-H)  GO  TO  2* 

MA 

250 

KSVMP*1 

MA 

25 1 

N»ADL*0 

MA 

252 

GO  TO  19 

MA 

253 

28 

fPFRF * I TMP | 

MA 

259 

IF  (M.FQ.O.OR.IPERF.Nf.O)  GO  TO  29 

MA 

255 

PRINT  ?0« 

MA 

256 

STOP 

MA 

257 

29 

N»ADL*ITMP2 

MA 

258 

KSfMP*? 

MA 

259 

CPSR*TMP1 

MA 

260 

SIG«TMP2 

MA 

261 

IF  (NOAOL.EO.C)  GO  TO  JO 

MA 

262 

SCPMLTsTMPJ 

MA 

263 

SC»mPT*TMPa 

MA 

269 

GO  TO  19 

MA 

265 

30 

F0SP2*TMPJ 

MA 

266 

SIG2*TmP<. 

MA 

267 

CLT*TMPS 

MA 

268 

CMTsTMP* 

MA 

269 

GO  TO  19 

MA 

270 

C 

MA 

271 

C 

EXCITATION  PARAMETERS 

MA 

272 

C 

MA 

273 

31 

IF  ( IFlOM.FO.S)  GO  TO  32 

MA 

279 

!PTFLG*-2 

MA 

275 

NS ANT  *0 

MA 

276 

|Pf0*0 

MA 

277 

iflow*s 

MA 

276 

IF  (IGo.GT.31  I GO* 3 

M* 

279 

32 

NASTM*ITNPA/in 

MA 

280 

IF  (ITMPl.GT.OI  GO  TO  3«* 

MA 

281 

IXTTPaTTMPl 

MA 

282 

NT  SOL*-' 

MA 

283 

NSANT**SANT*1 

MA 

289 

IF  (NSANT.LE.NSNAx)  Go  TO  33 

MA 

285 

PRINT  156 

MA 

286 

STOP 

MA 

287 

33 

I SANT  (NSANTI*ISEGNO(!TMPp.ITMP-() 

MA 

288 

IPE0*I TMPh-maSTM»10 

MA 

289 

VSANT (NSANT) *rMPL* (TMPI .TNP2) 

MA 

290 

IF  (CAPS(VSANT(NSAnT)).lT.1.E-?1)  VSANT(NSANT)*(1.«0.) 

MA 

291 

7pn0Rm*tmp  ^ 

MA 

292 

IF  (IPFO.EO.l. AND, /PN^RM.GT .0 ) TPEOa? 

MA 

293 

00  TO  |9 

MA  294 

34 

IF  ( 1 XT  vP.EO.O)  NTSOL»0 

MA  295 

I XT VP* I IMP  1 

MA  296 

NTMIMTHP2 

MA  297 

NPHI-ITMP3 

MA  296 

XPR 1 *T**P  1 

MA  299 

xPR2*TmP? 

MA  300 

XPR3*TmP3 

MA  301 

XPR4*TmP4 

MA  302 

XPR5*TmP5 

MA  303 

XPR6*TmP6 

MA  304 

NSANT  *0 

MA  305 

THCTIS»IP«1 

MA  306 

PNISS*«PR2 

MA  30  7 

GO  TO  19 

MA  308 

C 

MA  309 

C 

NET WORK  PARAMETERS 

MA  3|0 

c 

MA  311 

35 

IF  (IFlOm.EO.6)  GO  TO  36 

MA  312 

NET.O 

MA  313 

NTSOL*0 

MA  314 

IFLOM-4 

MA  315 

IF  <IGO.GT.3l  |GO*3 

MA  316 

IF  (ITMP2.EO.(-l)>  GO  TO  19 

MA  317 

36 

NE  T »NET ♦ 1 

MA  316 

IF  (NET.LE.NETMX)  GO  TO  37 

MA  319 

PRINT  157 

MA  320 

STOP 

MA  321 

37 

NTVP(NET>*2 

MA  322 

IF  (AIn.E0.ATST(6> | NTVPfNFTlsl 

MA  323 

ISEG1  ( NE  T ) * I SE  GNO ( I T MP 1 • I T MP2 1 

MA  324 

1SFG2(n£T)*ISEGN0(ITMp3.ITmP4) 

MA  325 

TllRINf T)»TMP1 

MA  326 

T11HNET»«TMP? 

MA  327 

V12R(N£T)*TMP3 

MA  328 

Y12I (NET )*TMP4 

MA  329 

T22R (NET 1 »TNPS 

MA  330 

Y22I (NETI-TMP6 

MA  331 

IF  (NTvPiNETI.EO.l.OR.TMPl.GT.O.)  GO  TO  19 

MA  332 

NTyP(NET»«3 

MA  333 

Y11R(NFT)«-TMP1 

MA  334 

GO  TO  19 

MA  335 

C 

MA  336 

C 

PRINT  CONTROL 

MA  337 

C 

MA  338 

36 

iptflgmtmpi 

MA  339 

IPTAG-TTMP2 

MA  340 

IPTAGF  *tTMP3 

MA  341 

IPTA6T * I TMP4 

MA  342 

IF  (1TmP4.EO.OI  iptagtmptagf 

MA  343 

GO  TO  19 

MA  344 

C 

MA  345 

C 

AUTOMATIC  FILE  DUMP  PARAMETERS 

MA  346 

c 

MA  347 

39 

IOuMP* 1 

MA  346 

TM0UN*TN°1 

MA  349 

GO  TO  19 

MA  350 

C 

MA  351 

c 

NEAR  FIELD  CALCULATION  PARAMETERS 

MA  352 

c 

MA  353 

40 

IF  ( .not • ( IFLOM.EO.6. ANO.NFRO.mE .lit  go  TO  41 

MA  354 

PRINT  158 

MA  355 

PRINT  159*  ISECN(l) 

MA  356 

41 

NE  AR* I TMPl 

MA  357 

IF  (M.ro.O)  GO  TO  42 

MA  350 

PRINT  ?09 

MA  359 

STOP 

MA  360 

42 

NRX«ITmP2 

MA  361 

NRY«ITMP3 

MA  362 

NRZ« I TMP4 

MA  363 

XNRaTMPl 

MA  364 

YNRbTMP2 

MA  365 

ZNRmTNP3 

MA  366 

OXNR*TMP4 

MA  367 

0YNR-TMP5 

MA  360 

02NR*TmP6 

MA  369 

IFlomm 

MA  370 

IF  (NFRO.NE .11  GO  TO  19 

MA  371 

GO  TO  (50.58.65.86.87) • (GO 

MA  372 

C 

MA  373 

C 

grouno  representation 

MA  374 

C 

MA  375 

43 

IF  ( .NOT • ( IFLOU.EO.9. ANO.NFRQ.nF .11)  GO  TO  44 

MA  376 

PRINT  159.  !SFCN(2> 

MA  377 

44 

EPSR2*TMP1 

MA  370 

5IG2-TMP2 

MA  379 

CLT-TMP3 

MA  300 

CHT«TMP4 

MA  361 

IFL0W-9 

MA  302 

GO  TO  19 

MA  303 

c 

MA  304 

c 

STANOARO  OBSERVATION  ANGLE  PARAMETERS 

MA  305 

c 

MA  306 

45 

IF  AR*I I MP1 

MA  307 

HTM.ITMP? 

MA  300 

NPh» I TMP3 

MA  369 

IF  (NTm.EO.OI  NTM-l 

MA  390 

IF  (NPM.EQ.0t  NPM.l 

MA  391 

IPO-ITMP4/10 

MA  392 

120 


|*VP«!  t 4P4- IPn.  1 0 

ma 

193 

IS0»« IPO/IO 

MA 

396 

|po*ipo-i»<o««io 

MA 

195 

|Ai*lN')P/10 

MA 

396 

! NOW* I NOW*  f A A • 1 0 

MA 

397 

If  (lAi.NF.0l  IA*»1 

MA 

398 

IF  t|»*aNf.Ol  |PO«l 

MA 

399 

IF  INT.-.L  T.?.0».NPh.LT  .2)  JAVPao 

ma 

400 

IF  (IFftH.FO.lt  |AvP*0 

MA 

401 

THF  T S*  T HP  1 

MA 

402 

PM(S*TmP? 

MA 

401 

nTn*TMP) 

MA 

404 

OPm«Tnp<i 

MA 

405 

PF  l 0*  T*4PS 

MA 

406 

t»NO**«  T mPN 

MA 

40  7 

|FlOP*|0 

MA 

408 

GO  TO  <S0.SB.6S.H6.94t • 1 Go 

MA 

409 

c 

MA 

410 

c 

C*CCUTf  CAPO  - CALC.  INCl  UOING  ->  AO  I A T ED 

FIELDS  MA 

411 

r 

MA 

412 

-6 

IF  ( IF|  o« .FQ.  IO.AnO.  1 TMP1  sfQ.  ))  r,0  TO  19 

MA 

413 

IF  (NFt 9.EQ.1 .AND. I !MP| .F 0.0. Ant. IfLOa.GT 

.7|  GO  fO  19  MA 

414 

IF  « IT-pj ,n€ .0)  GO  TO  *8 

MA 

415 

IF  ( I F | OP.GT. M GO  TO  47 

MA 

416 

IF  L OP*  T 

MA 

417 

GO  TO  49 

MA 

418 

47 

IFlOP«l l 

MA 

419 

GO  TO  »9 

MA 

420 

*a 

IF4»*0 

MA 

42) 

pflo*o. 

MA 

422 

ipo«o 

MA 

423 

I AyP*0 

MA 

424 

INOP*0 

MA 

425 

I A««0 

MA 

426 

NT  h»9 I 

MA 

427 

NPh*1 

MA 

428 

T h£  T 5 « f • 

MA 

429 

PHIS»0. 

MA 

430 

OTHal.O 

MA 

431 

OPM»0. 

MA 

4 32 

IF  (ITmpI.FQ.?)  PHIS»40. 

MA 

433 

IF  ( 1 T *P  1 • NE  . 1 1 GO  TO  49 

MA 

434 

NPm«2 

MA 

435 

OP*. 90. 

MA 

436 

*9 

GO  TO  ( SO  *58 *65*  66*94  > • I Go 

MA 

437 

c 

MA 

438 

c 

f no  of  inf  main  input  section 

MA 

439 

c 

BEGINNING  OF  TMf  FPEOuENCf  00  l OOP 

MA 

440 

c 

MA 

441 

SI 

MM/aJ 

MA 

442 

SI 

IF  IMH7.EQ.il  GO  TO  5T 

MA 

443 

IF  MFP0.EQ.lt  GO  TO  5? 

MA 

444 

Fmh/«Fmh/*0FLFB0 

MA 

445 

GO  TO  SI 

MA 

446 

52 

FMM/*FMH*«n£LF«Q 

MA 

44  7 

S3 

FP.FMH//FMH7S 

MA 

440 

PL AM» 300. /FHH7 

MA 

449 

PRINT  |60*  FMH/.PtAM 

MA 

450 

PP I NT  205.  PK« 

MA 

451 

c 

frequency  SCALING  of  gcomf tpic  oapametfms 

MA 

452 

FMh/5«fmh2 

MA 

453 

if  (N.FO.Ot  Go  TO  55 

MA 

454 

00  S4  I * 1 • N 

MA 

455 

»II»a*Ml*FO 

MA 

456 

Y (I»*V  MI»F9 

MA 

457 

zm«mi»Fn 

MA 

458 

snn*smi#Fp 

MA 

459 

5% 

81  (I>*SI  (Il'FO 

MA 

460 

S5 

IF  (M.fO.Ol  GO  TO  S7 

MA 

461 

fP2.ro.rp 

MA 

462 

j*lom 

MA 

463 

00  S6  T * 1 • M 

MA 

464 

JaJ-1 

MA 

465 

X( J>**(JI*FP 

MA 

466 

VI J»*V< J»«FP 

MA 

467 

Z I J) *7  I J) «FP 

MA 

460 

56 

RI  I J>  •-PIUI»F07 

mA 

469 

57 

IGO*2 

MA 

470 

C 

STRUCTURE  SEGMENT  LOADING 

MA 

471 

58 

PPINT  161 

MA 

472 

If  (MLOfO.Nt.OI  CALL  1.1*0  (LDTvo  .LflUf,  .LOt  *C.F  .LDT*Gt  «/LH  *1L  I « 7LC  «N  M» 

473 

lLOAOl 

MA 

474 

IF  INLOAC.EQ.Ol  PPINT  162 

MA 

475 

C 

GROUND  PAPAMETEP 

MA 

476 

PRINT  163 

MA 

477 

IF  lKSYMP.E0.il  GO  TO  61 

MA 

470 

IF  (IPERF.EO.lt  GO  TO  60 

MA 

479 

/RAT  I *r SORT  (1  ./(EPSR-SlG*PLAM*^.Q?«r  j)  | 

MA 

400 

IF  (N9ADL.EQ.0I  GO  TO  59 

MA 

401 

scppl*scrplt/plam 

MA 

402 

scppr^scrppt/plam 

MA 

403 

PPINT  |P5.  NffAOL«SCR*|  T.SCPPRT 

MA 

404 

PPINT  164 

MA 

405 

59 

PRINT  165.  EPSP.SIG 

MA 

406 

GO  TO  62 

MA 

407 

60 

PRINT  166 

MA 

400 

GO  TO  62 

MA 

409 

61 

PRINT  167 

MA 

490 

62 

CONTINUE 

MA 

491 

121 


c 

MA 

692 

c 

ST»uCrtj»f  MMJBJM  SET  •/*» 

HA 

693 

c 

HA 

696 

IF  ( ISTART.NE ,0>  GO  10  63 

NA 

695 

10*0 

NA 

696 

IC2* 1C | 

MA 

697 

1C3-ICI 

MA 

698 

63 

NROM*NRO«I 

MA 

699 

NCOL-NCOLX 

NA 

500 

N6l0«S*NBL0KX 

NA 

501 

NPRL*»nP8L«« 

MA 

502 

NLAST «NLASTI 

NA 

503 

CALL  Sf COHO  (TIMlI 

MA 

506 

c 

• 

MA 

505 

CALL  CmSET  (nO0W«NC0L«CM*NL0A0.OKm) 

mA 

S06 

c 

• 

MA 

SO  7 

CALL  SCCONO  I7IM2) 

MA 

508 

T I M*T  I Mi>-T  J M J 

MA 

509 

c 

NA 

510 

c 

MATRIX  FACfO»IA27|ON 

MA 

511 

c 

MA 

512 

CALL  FACTBs  (nPEQ.nOP.Cm.  IP.  U.nROM.nCOL.nCOLS.  1PSYM) 

MA 

513 

isrA»r«o 

MA 

516 

IF  (ICASE.IE.1)  go  to  64 

MA 

515 

nbom*npeq 

MA 

516 

NCOL*NCOLS 

MA 

517 

6* 

CALL  sfcond  < t imi » 

MA 

510 

T|H2*T!»*1-T!M? 

MA 

519 

PRINT  I68t  Tl M.TIM? 

MA 

520 

IGO*3 

MA 

521 

NTSOL»0 

MA 

522 

c 

MA 

523 

c 

EXCITATION  SET  uP  (BIGHT  manO  SIDE.  -E  UK.I 

MA 

526 

c 

MA 

525 

65 

NTHIC*I 

MA 

526 

NPhIC«J 

MA 

527 

INC*1 

MA 

520 

NPB  JNT  *0 

MA 

529 

66 

IF  (IXTYP.EO.O)  GO  TO  68 

MA 

530 

IF  (IPTFLG.LE.O.OR.IXTYP.EQ.6)  PRINT  169 

MA 

531 

TMP5*T**XP«S 

MA 

532 

TMP4»*T»»*PR4 

MA 

533 

IF  ( I X T yP.lE .31  GO  TO  67 

MA 

536 

tmpi«xpqi/«lam 

MA 

535 

TNP2«XPR2/mLAM 

MA 

536 

THP3«XPR3/mLAM 

MA 

537 

TMP6*XPR6/ (ML AM* ML AM) 

MA 

538 

PBINT  1 7 1 • XPOl  .XPP2. <PR3.XP»L. »PRS.XPR6 

MA 

539 

GO  TO  68 

MA 

560 

67 

tmpi»ta«xpri 

MA 

541 

TNP2«T6«XPP2 

MA 

562 

TMP3«TA*XPR3 

MA 

563 

THP6*XPR6 

MA 

566 

IF  (IPTFLG.LE.O)  PRINT  170.  XPR} ,XPR2.XPM3,hPOL ( I'TVP) .XPR6 

MA 

565 

68 

CALL  ETMNS  (TMPltTMP2«TMP3.TMP4»,TMPS.TMP6.lXTYP*I<;ANT.vSANT*NSANT« 

MA 

566 

I COR  I 

MA 

54  7 

C 

MA 

548 

C 

MATRIX  SOLVING  (NET**  CALLS  SOLVES) 

MA 

549 

C 

MA 

550 

IF  (NET.EQ.O.OR.lNC.GT.l)  GO  TO  72 

MA 

551 

PRINT  173 

MA 

552 

ITNP3-0 

MA 

553 

ITMP1»NTYP<1) 

MA 

556 

00  71  1*1.2 

MA 

555 

IF  (IT«P1«EQ.3I  ITMP1-.2 

MA 

556 

IF  ( IT^PI «E0.2)  PRINT  176 

MA 

557 

If  (iTHPUfO.l)  PRINT  175 

MA 

558 

00  70  jal.NCT 

MA 

559 

ITMP2*NTVP(J) 

MA 

560 

|F  <<ITMP*/|TM»1).EQ.|)  GO  TO  69 

MA 

561 

ITHP3MTNR2 

MA 

562 

GO  TO  70 

MA 

563 

69 

!T*P6«ISEG1 (J) 

MA 

564 

ITNP5*ISEG2( J> 

MA 

565 

IF  (ITHP2,GC.2.ANO.V11I(J).LE.O.)  VI 1 I ( J) ■MLAN*SOQT ( (X ( ITNP51 -X (IT 

MA 

566 

1MP6) >a*2*(V( ITMPS)-V(|TMP6) )a«2* (2 (ITMPS)-Z(ITMP6|)aa2) 

MA 

567 

PRINT  172.  ITAG( IT MPA) « ITNP6. I TAG! ITNP5) • ITNP5.V1 *R(J)«Ylll(J).Y12 

MA 

560 

1R(  J)  *Y12I  (J)  *Y22R(  J)  .V22I  (J) tPNET(2*ITMP2-l)  .PNET  ( 2*  I TmP2) 

MA 

569 

70 

CONTINUE 

MA 

570 

IF  UT*P3,EQ.O)  GO  TO  72 

MA 

571 

ITMP1*TTNP3 

MA 

572 

71 

continue 
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IF  ( IPTFLG.GT.O)  GO  To  lb 

MA 

695 

Pw | NT  |7N 

MA 

596 

POINT  | ? 7 

MA 

697 

GO  TO  7S 

MA 

698 

76 
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PRINT  100.  1 . TTAGt  1 > . » < I ) . r < I » . M H ,;i  < J ) ,CUWl  .C"  V..Ph 
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IF  (M.FQ.O)  GO  TO  0«. 

MA 

626 

PRINT  ?08 

MA 

625 

J«N-1 

MA 

626 

I TMP l =L  0 ♦ 1 
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FTHA*CANG«ETH) 

MA 

637 

CPHMaCARStEPM) 

MA 

638 
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IF  <IFAO.LE.3l  GO  TO  95 

MA 

709 

PRINT  165.  NRADl.SCRKi.T.SCOmRT 
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MA 

758 

GO  TO  104* 

MA 

759 

103 

MA 

760 

tRDN*CA8S(tRD) 

MA 

761 

EROA*CANG(ERDl 

MA 

762 

104 

ETHM2*PEAL(ETH#C0NJG(FTH> 1 

MA 

763 

FTHMaSQRT (FTHM2) 

MA 

764 

f THA*CANG(FTH1 

MA 

765 

EFmm2*pE *L (EPm«C0n  iG ( fPh ) 1 

MA 

766 

FPHM*SORT(EPHM2l 

MA 

767 

EPHA*CANG(EPH1 

MA 

768 

IF  (IFAR.EO.il  GO  TO  122 

MA 

769 

C 

ELLIPTICAL  POLARIZATION  CALC. 

MA 

770 

IF  (ETMN2.GT.1.E-20.0R.EPHN2.GT.1.F-20I  GO  TO  105 

MA 

771 

tilta*o. 

MA 

772 

EMAJP2-0. 

MA 

773 

EMINR2-0. 

MA 

774 

AXPAT*0. 

MA 

775 

ISENS*hBL6 

MA 

776 

GO  TO  110 

MA 

777 

105 

dfaz*epha-etha 
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GNh*0<IHHGC0N«FPHM2) 

GTOf«f)o|fl  <t  1 •[  Ph*?)  ) 

IF  l|Nn«.LT. 1)  GO  TO  117 
I - I • I 

IF  ll.OT.MOMMAII  GO  TO  IW 

go  to  iin.n<>»m,iu.iis).  i*»op 

TSTO»l  * GNM  l 
GO  TO  11* 

T*T0«1  »GN*N 
GO  TO  II* 

I ST0« 1 *ONV 
GO  TO  116 
TST0»1 «0N" 

GO  TO  116 
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947 

1TMP20) .THP2.THP3.THP4.THP5 

MA 

946 

IF  (IFRQ.EO.O)  THPl«TNPl*OCLFRO 

MA 

949 

IF  (IFRQ.EO.l)  TMP1*ThP1*0ELFR0 

MA 

950 

137 

CONTINUE 

MA 

951 

PRINT  150 

MA 

952 

1 3® 

CONTINUE 

MA 

953 

nfro*i 

MA 

954 

NM2«l 

MA 

955 

GO  TO  19 

MA 

956 

C 

MA 

957 

C 

MA 

950 

140 

FORHAT  (A2.13A6) 

MA 

959 

141 

FORHAT  « 1M1 > 

MA 

960 

142 

//•36X.24HANTENN  MA 

961 

962 

i« 

FORMAT  (////. 37X.24M-  - - - CONMCNTS  - - - -./I 

MA 

963 

144 

FOR HAT  (25X.13A6) 

MA 

964 

1*5 

FORHAT  (/✓/ *1  OX *34M INCORRECT  LABEL  FOR  A COHHENT 

CARO)  HA 

965 

146 

FORHAT  C////33X.33H-  - - - SE GHENT A| ION  OATA  - - 

• 

-•/✓•40X.21HCOO  MA 

966 

IROINATES  IN  METERS . // .25* *50H! ♦ AND  f-  INOICATE 

The  SEGMENTS  BEFOR  MA 

967 

2E  AND  AFTER  !.//> 

MA 

960 

1*7 

FORHAT  (2X.4NSEG..3X.26HCOOROINATES  OF  SEG.  CENTER 

•SK.4HSEG..SX.10  MA 

969 

1HORIENTATION  ANGLES. 4X.4MHIRE.4X. i5HC0NNECT ION  OAT A. 3X . 3MT AG. / *2X . HA 

970 

23MNO. •7X*1HX«RX«1HV*.X*1HZ  * 7X •6HLCNGTH«5A •5NALPHA • 

5l.4HBETA.6X.6HR  MA 

971 

3A0IUS.4X .2Ml “ . 3X • 1 H I . AX • 2H| ♦ *4X . 3HNO • ) 

MA 

972 

1*« 

FORHAT  (1X.I5.4F10.5.1X.3F10.5.1X.3I5.2X.I5) 

MA 

973 

149 

FORHAT  (19H  SEGHENT  OaTA  ERROR) 

MA 

974 

150 

FORMAT  </////) 

MA 

975 

151 

FORMAT  (A2.I3.3I5.6E10. 3) 

MA 

976 

152 

• 3(U.IS).6(1X.E12  MA 

977 

1.5)) 

MA 

970 

153 

FORMAT  (/✓/.10X.45MFAULTT  DATA  CARO  LABEL  AFTER 

GEOMETRY  SECTION)  NA 

979 

15* 

FORHAT  (///.I OX .48MNOM8ER  OF  LOAOING  CAROS  EXCEEOS 

STORAGE  ALLOTTE  HA 

980 

101 

HA 

981 

155 

F0RH«T  I///.10«.31mO»T»  F«ULT  ON  L0A01N0  CARD  NO 

• ••I5.5X.UHITAG  S HA 

982 

1TEPI-.T5.29H  IS  GREATER  THAN  HAG  STEP2-.I5) 

ma 

963 

15* 

FORMAT  (///.10K.51HNUMHCR  OF  OCITMION  CAROS  CXCFEOS  STORAOC  ALtO  MA 

964 

1TTE0> 

HA 

965 

157 

FORHAT  (///.1OX.40MNUMBCR  Of  NfTHORK  CAROS  EXCEEOS 

STORAGE  ALLOTTE  HA 

966 

126 


FOPMAT  n MiilTJPIF  FREQUENCIES  APf  REQUESTED.  ONLY  0 

1st  nfau  Fitto  capo  C As  BE  USEO  -./. 10X.22HLAST  CApD  REAO  IS  USED) 
FORMAT  (10*.2SH$EE  USERS  MANuAl  SECTION  • AN  I 

F OPM  A T f //// . 3 3X  « I Jh-  -----  FWEOUENC*  -----  - * / / . )6I  * | OmFP 
IEQvJE  NCv*»Fll.<»»AM  MM/,/.  JM>  . 1 1 M.AVf  LFNM««  .f  n , ?H  METERS) 

FORMAT  (///•  JQi.'.On  - - - STPjrTUPE  IMPEDANCE  LOADING  - - -) 

FORMAT  (/. 3S*.?AmTm!S  STRUCTURE  IS  NOT  LOAnfO) 

FOUMAT  t///.3<.X.  JJh-  - - AnTENNA  ENVIRONMENT  - - -./> 

F Opm  A T ( <*0 1 • ? 1 mm£0  Il»M  uNOfR  SCREEN  -» 

FOPMAT  ( AO  i . 2 7mPE  L A T I E DIFLECTolc  CONS  T . * . F 7 . 3,  / , AO  A • 1 inCONOtlCT  I V 
lITvs.ElO. 3.11m  mmos/mfTFP) 

FOPMAT  (<»2k  • l*.HPEOFECT  GROUND) 

FOPMAT  (%-.*.  ICmE  REE  SPACE) 

FOPMAT  (/// • J/K • 2S**-  - - *A  T w 1 * TIDING  - - -»//»?<•*  *ShF  |LL*.F9.3»  1 
I5M  SEC..  F ACT OP 3 .FP. 3»SH  sEC.) 

FORMAT  (///.Agx.2?H-  - - tiClTATION  - • -I 

FOPMAT  (/.A*.  10HPLANE  «*AVF  * . AmTmF  T A»  .F  7 .?  • | | M OF  G • OH|*.F7.2.H 

In  OCG.  f TA*.E  7.2.  I 3H  'JEG.  TTPF  -.AA.ISh.  A«IAI  »ATfO*.f6.3) 

FOPMAT  (/,  Jl*. IMPOSITION  < Mf T EPS ) . 1 A K . 1 RhOP I E NT  A T | ON  < Df G ) */ . ?6X • 

1 |M*  . lit  . l MY  • 12*  • in/  . 1 C A »SNAL  P"A  , 5*  . AMHF  T A .a*  . 1 3nO  TPOLE  MOMENT  .//•<* 
2* • I AMCuPREnT  SOURCE *1 »• 3(3* .F lO.S) .1**2 < 3*.F  7.2) .,x.t  H.3) 

FOPMAT  (A*VA(  TS.lX)  .6l3*«ni.M  . 3X.A6.A2) 

FOPMAT  (///.<»AX«2AH-  - - NFTwOwk  OATA  - - -» 

FOPMAT  f/.h*.|«M-  FR0*i  - - TO  -.11  «.  1 ThTPANSmj^SION  LZNF*)SX.36 

1m-  - SHUNT  AOmITT/>.  ES  (mmOS)  - - . 1 •.*  . AHL  I NE  . / .N*  » ? 1 HT  AG  SEG. 

2 TAG  SfG..6X.RH( *peOANCF«GA.GhlENGTh«12*.11m-  rNO  ONE  •*I7«.IIm 

3-  f^O  t*0  - • 1?*.<«HI  rPF  ./.h*  .21-<nO.  NO.  NO.  NO.  • 9*  • AhOhms.H*  • 

AfeHMFTEoS.Px.'.MPE  Al,  1G»  .SHIh  AO..  3X.-.PPE  AL*  1 OXtSHIMAG.  ) 

FOPMAT  (/.6X.RH-  FPOM  - , A A « 6m-  TO  -.26  k.'.Sh-  - XOmITTANCE  MATPI* 

1 ELEMENTS  (MHOS)  - -•/♦GH.2IMTAG  SEG.  TAG  Srr,. . 11*  .9m  ( ONE  .ON 

2f ) .IPI.PH(ONE.TmO)  .INI.PH(TmO.TrO) ./.GI.21HN0.  NO.  NO.  NO. * A 
3*  . <*MPf  AL  . 10*  .SHI  MAG.  » r.*.AMPE  AL  . 1 0 * • SH  I M AG  . . PA  • AHRF  AL  * 1 0 * • SM  I M A& . ) 

fopmat  <///*2px.J 3h-  - - Comments  and  location  - - -*//.33x.?amois 
ITAnCCS  IN  rAVELENGTHS) 

FOPMAT  (//.?*. AHSEG..  >*.3htAG.'.*.?1mCOOMO.  OF  SEG.  CENTE».S*.AhSEG 

1.. 12X.26H-  - - COPMEN  T (AMPS)  - - -•/•?«•  THN0..3*. 3MN0. .5*. lMX.fiX. 
21my.AX.1H?,6*.6mLENGTh.SX.phPEAL .8».ShIMAG..T*.AHmAG..R**ShPhASF) 

FOPMAT  ( ///. 37X.AOM-  - - RECEIVING  paTTEHN  PAMAmETEPS  - - -«/.a3X« 

1 <*MF  T A* ,F  7 .?  * 0n  0EGMEES./.«.1*.6HTYPE  - . A6  . / • «.3X  . 12mAX  I Al  RATIO*. F6. 
23.//. 1 1 X.ShThFTA.n*. JmPhI • 10*. I 3M—  CUftPENT  - .9X , 3HSEG. / • 1 1 X .SM (0 
3EG) ,S« .SH(OEG) .TX.QnnaGNI TuOE .A< .SmPmASE .6* . 3HN0../) 

FORMAT  (10(*2(f7.2.3X>.lX.Ell.<..3X.F7.2*AX.TS) 

FOPMAT  (1*.?IS.3F9.m.fp.S.1*. 3F12.m»FP.3> 

FOPMAT  (///.*.'}*.  2ah-  - - POMEP  PUOGET  - - - . / / . A 3*  . ISh  I NPUT  POWER 

1 *.Cll.A.6H  RAT Ts./.A 3*. ISHPAnrATFO  PO«E»*.EI 1 .A.6M  «AT T S . / * A3X « 1 
2SHSTPUC  TURF  LOSS=.E 1 1 .m.Gh  * AT TS . / . A 3* . 1SHNE I WORK  LOSS  *.FII.m.6H 

3 MATTS./. A3*. ISHEFFICIENCT  *,F7.2,8h  PERCENT) 

FOPMAT  (///.37X.23H-  - - NFAP  FIELDS  - - -.// • 12*. IAH-  LOCATION 
i-.21x.oh-  e*  -.is*. oh-  m -,is*.rh-  ez  -./.qx.ihx.iox.ihy.io 
2*. IhZ* 10*.9MMAGNITUOE . 3* .ShPhAsf,G*.9hmAGniTuOE. 3*.ShPhASE.6*.9mMA 
3GN1T0DE  .3*  . 5HPHASF . / . *X . 6mmETEpS . 5 < . 6HmE TERS. 5* .6«m£ TEPS. «* • 7HV0LT 
AS/M. 3*. 7H0EGPFFS.6X. 7HV0LTS/M.  3* . 7H0E G»EES. 6* . 7hvoLTS/M, 3* . 7H0EGPE 
5ES) 

FOPMAT  (2X.3C2* .FP.AJ , 1*. 3(3*.E1 I .A.2X.F7.2) ) 

FORMAT  ( /// * 31 x . J9M-  - - Far  FIELD  GROUNO  PARAMETERS  - - -,//> 
FORMAT  (A0X.2SHPADIAL  «IPF  GPO  INO  SCREE N . / . AO * . 15 . 6*  M IRES. / . AO* . 1 
12MMIPE  LENGTHS, F«. 2. 7m  m£  TFPS . / . *.0*  . 1 2hM IRE  RAOIUS*.E  10. 3.7h  METER 
2S) 

FORMAT  (A0X.AG.6H  CL  IFF  «/.aO*.]A HEDGE  OISTAnCE*.FQ.2*7M  METERS. /.A 
10*. 7HHFIGHTs.Ffl. 2. 7H  Mf Tt»S./.AOX* ISHSECOND  MEOIUM  -./.A0X.27HRELA 
2TIVE  DIELECTRIC  CONST . = .F  ) , 3 . / . AOX . 1 3HC0N0UCT I V I T Y* .E 1 0 • 3.5H  MHOS) 
FOPMAT  (///.AAX. JOH-  - - RADIATION  PATTERNS  - - -./) 

FORMAT  (SAK.GHPANGfs.Fl 3. 6. 7h  mFTEPS. /.5AK. I6H2.*pI*E*P(-JKP»/,5HI 
1xP)*.E12.5.9h  AT  PmASF.F 7.2.«h  DEGREES./) 

FORMAT  ( A * * 1 AH—  - AnGlES  - -. BX .?Ab. 7HGA I NS  -*?X.?AH-  - - POLApIZA 
1 T I ON  - - -.AX.20H-  - - E(TmETA)  - - - • A*  * 1 RH-  - - E (RHf ) - - 
2a*,5HThFTA.5X.3hPhi . 7K.A6. 3*. A6.AX.5HT0 I AL.GX.SHAxIAL.SK. AHTILT. 3* 
3.5hS£NSE .2 (S* . 9hMagn I TUDE • a X . 6HDHASE  )./.lx.2(?X.  )HOEGP€ES > . 3 < 7X . 
A2H0R) .RK.ShRATIO.SX.AmOEG. .8*.?(bX.7HV0LTS/M.AX.7HDEGREESl I 
FOPMAT  (///.2RX.A0H  - - - pAOIATEO  FIELDS  NEAP  GROUND  - - -.//.AX. 
120H-  - - LOCATION  - - — . 1 0 x . 1 6h—  - E(ThETA)  - -.8*. 1AM EIPHl)  - 

2 - • 8*  » 1 7H-  - F(RAOIAL)  - - « /• 7*  « 3HPh0.6* • 3HPH I.9X.IHZ.12X. 3HMAG. 6* 
3.5HPHANF.9K.3MMAG.6X.NHPHASE.9X .3mmAG*6X.5hPMASE. /.SX.6HMETEPS.3X. 
A7Mf)EGRFES*AX.6HMfcTERS.8X.  7HVOLTS/M.3X.7HOEGREES.6X.7HVOLTS/M.3X.7H 
50EGREES.6X.7HV0LTS/M. 3X,7HnEGRFFS./) 

FOPMAT  (JX.2FP.2.2X*3f9,2.?*.F9,5.FS.2.2X.A6.2(3X.E12.S.F9.2)) 
FOPMAT  (3X,F9.2.2X,F7.2.2*.F9.?,1X.3( 3X.E11.A.2X.F7.2) ) 

FOPMAT  ( //♦  3*.  19HAVFPA&E  POMEP  GA  I N*  • E 1 2 «S.  7X  . 1 6HS0L  If)  ANGLE  USE 

10.15H  IN  AVERAGING*(«F7.A.16H)«OI  STF RAOI AnS. .//) 

FOPMAT  (//.37X.J1M-  - - - NORMAL  IZED  GAIN  - - - - . // . 3?X «2A6 • AHGA I 
1N./.38* • 22HNOPMAL I Z AT  I ON  FaCTOp  =.F9,2.3h  OB*//. J (AX. I AH-  - ANGLES 
2 - -•6X.AHGAIN.7X)  ./.I  (AX.ShThFTA.SX,  3hPmI  . R*  . 2hO«3  • 8* ) ./.3(  3*,7hOF 
3GRFES.2X.7mOEGpEES.I6.) ) 

FOPMAT  (3(1X«2F9.2,1X,F9.2.6X)) 

FORMAT  (///.AX.SlHPECF IVING  PATTERN  STORAGE  TOO  SMALL. ARRAY  TRyNCA 
ITEO) 

FOPMAT  ( /// .32*  * AOM-  - - NO»MA(  T ZED  RECEIVING  PATTERN  - - -./.All. 

1 21HN0PMAL I ?AT I ON  FACTOWs.ri 1 .A, /.^1*,AHETAs.FT,2.Rh  OEGPfES./.Al*. 
26HTYPF  -.A6./.A1X. 12HAXIAL  P AT  I 0* .F 6 . 3 * / . A 1 X . 1 2hScGMENT  N0.**1S.// 
3.21X.SHTHETA.6X. JHPHI.9X. 1 3H-  PATTERN  - •/ .2 1 X .Sm (DEG ) .SX.SH (OFG)  ' 
A.Rx .2H0R.8* .9HMAGNI TUOfc •/) 

FORMA f (20X.2IF7.2.3X) * 1 X .F 7 .2* AX .E 1 1 . A ) 

FORMAT  (///.36X.32H-  - - INPUT  IMPEDANCE  OATA  - - - • / . ASX • 1 8MS0U»C 
1 F SEGMENT  no. « IA./.ASK.21HN0RMAI  I2ATI0N  FACTOPs.E 7X .SMfPEO 

2.. 13X.3AH-  - UNNORMALIZEO  IMPFOANCE  - -.21X.32H-  - NORMAL  I IF 

30  IMPFOANCF  - -./. 1 )X, IOmPESISTANCE . AX .9HRt ACT AnCE .6* . 9HMAGNI TUD 

AE.AX.SHPHASE. 7X. I0hpESISTAnCE,4Y.9hPEACTAnCE.6X,9mmAGNITUOE.AX,SHP 
SHASE./.RX,  3HMH7.  I IX  .AHOHMS,  10k,<,H,)HMS.  1 1X.AH0HMS.SX.7HDEGREES.ATX. 


1 


r 


! 


I 


9TH0CGRECS./I  MAI086 

200  format  <///.««,92*isiora&e  for  impedance  normal  Hat  ion  too  small*  a maioit 

IRNAT  TRUNCATED)  MA1088 

>#i  roRMAT  maioc* 

IEI2.*a2A.F>.2>  MAI  090 

202  FORMAT  )////. 99X.30H-  - - SURFACE  PATCm  OATA  - - -,// ■ «9« a 7IMCOORO  MAI09I 

IINATfS  IN  aFETERS  *//*!■ *SmRaICh*Ti«2TmCOOM01NATES  or  PATCM  CENTER. 6 MA1092 
2A.I6HUNIT  NORMAL  VECTOR. 9A.SHPATCM.12A.39MC0MR0NENTS  or  UNIT  TANGE  MA | 093 
JNT  VCCTO«S*/.)8.>*«*0..61.)a*A*91.)HY*9A.lH2.l|lalHX*tX.lMV.8X.|HZa9  MAI 09* 
91 .9a*A**f  A*YI*2m11*9A  *2**Y | a 61  a 2H7 1 *6A*  2M12.9A  *2MY2  *6X  *2"Z2 1 MAI09S 

203  roPMAi  i|i.is.3ri9.S*2i*3r9.4.rii.s*2i.3F8.i*2i*3r».9>  maio9» 

20*  rOMMAT  I AO"  OCOMCTUT  OATA  INCONSISTENT  - N .NP . M iNAa . A l A I MAI097 

29S  roaatAI  <////. 291*SSH4PPROl|M4TF  INTEGRATION  CNRLOvCO  FOR  SEGMENTS  HA1096 

|NO*t  t-AN.F 9. J. |0h  MIvClCNGThS  APARTI  MA 1099 


209  format  <////. «sia 30"-  - - - surface  patch  currents  - - - -.//.s*a.  maiioo 
IriRCIS'ANCr  |A  »A*flCNGTNS./*S9I.2lMCURRENT  IN  AMDS/METER •// *»0« a 2 MAI10I 
29>.  . ajpracc  COMPONENTS  - -a|9ta39H-  . . RECTANGULAR  COMPONENTS  - MAI  102 
3 - ■ •.SaaPlTCM.aX. I2MPATCM  CENTER #9A aSHPAICM. 3| a IOHT ANGENT  VECT  MAI103 

NOR  |.ta.|9R|4NGENT  VECTOR  2 a I 1 1 a 1"« a I »A a 1MY , |9I a |H? a / a2> a 3MNO. .9« a MA 1 1 09 
SI-*I.4A.  IMT.Gla  |H2.Sla9HARF_1.9I.lHNAG.a  TA.SaaPHASC*  TXaAHMAG.  aTAaSHPH  MA]  | OS 


»ASI  . KaI.AmMT  Al.9«.9"|MAG.  II  MAIIOO 

20'  aORMAT  i lAalA.sr '.3aFA.Sa2iEll.A.r0.2l aOE 10.21  "*110? 

20A  FORMAT  IS9»  ERROR  — ONI F PERFECT  GROUND  IS  ALLOMCO  MllH  SURFACE  PAT  MAIIOO 
ICMfSI  MAI  109 

209  FORMAT  iriaa  ERROR— NEAR  F IELO  MAT  NOT  St  COMPUTED  VHEN  SURFACE  PAT  MA||10 
texts  are  PRESENTI  MAIIII 

ENT  MAUU- 


SURROITINC  APRIE  IRaSaCTAaPl2a01Ja01Ra2PaRH.ETRaETIaIPI  At  I 

C AE  2 

c APRIE  CALCULATES  TaaE  FLECTrIC  FIELD  OF  AN  INF  InITfSIMAl  CURRENT  AE  3 

C ELEMENT  FOR  TaaE  MATS  I ■ ELEMENT  APPROXIMAT  ION  FOR  SEPARATION  AE  * 

C DISTANCES  GREATER  Than  RK*a.  AE  5 

C AE  6 

OIMENSION  f ?E 121  * ERE  1 21  AE  T 

CONRLEi  Cl aERaCT aE2a£P  AE  8 

f Out  VALENCE  (EZaECEIa  lEPaEPEI  AC  9 

RAM  1 *P I 2 VP  AC  10 

AOaZP/R  AE  11 

AlaRH/R  AC  12 

C l aCMPL  * I COS  I RUN 1 1 a -SINCRKHl 1 1 AC  13 

fRaS*ETAaA0PC|aCNPLAII.a«l./R«M|l/|PI2aRaRI  AE  1* 

ETaSaETAaA|aC|aCNPLAIl.aRMHl-l./RKMll/(2.aPI2aRaR)  AE  IS 

ElaCRaAO-ETaAl  AE  16 

CPaCRaA|aCT*AO  AE  IT 

IF  (IP. EG. 21  CALL  GN  (CZCT1 1 aC2E<2l aCPE ( 1 1 aCPE <21 1 AE  10 

ETaDIjaEZaOlRaEP  AE  19 

ETRaCTRaRCALIttl  AE  20 

CriaCTIaAlMAGICTI  AE  21 

RETURN  AE  22 

END  AE  23- 


SURROUTINC  APRAH  IRaR2.SaTPlaST.TNHR.TMHl.ILC.PAaPraP2.RFLI  AN  1 

C AM  2 

C APRAH  CALCULATES  THE  MAGNETIC  FIELD  OF  AN  INFINITESIMAL  CURRENT  AH  3 

C ELEMENT  FOR  The  MATRIX  ELEMENT  APPROXIMATION  FOR  SFRARAT10N  AM  A 

C DISTANCES  GREATER  THAN  RAM.  AM  S 

C AM  6 

COMMON  /DATA/  LOaN.NPaM  aNP  a A ( 1000) *T (1000) «ZI 10001  aSI <10001  aSI 1 100  AH  T 

lO).ALP(lOOO) a BET ( 1 000 1 a ICON  1 (1000) a 1CON2 (10001 *ITaG(1000I * XL AM. IPS  AH  8 

2VM  AM  9 

COMMON  /ANGL/  SALPI 10001  AM  10 

DIMENSION  TDHRI3.2I.  TMNII3.2)  AM  11 

DIMENSION  T1AI1).  TIT  1 1 ) a T12I1).  T2x(ll.  T2TI1I.  T22II)  AM  12 

CONPLEA  M AM  13 

EQUIVALENCE  (TlA.SIla  (TIT, ALR).  (TI2.BETI,  <T2A.(C0Nlla  (T2T.ICON  AH  U 

121.  <T22atTAG)  AM  IS 

RK-TPlaP  AH  16 

HaSaSTaCMPLAICOSTRAI a-SINIRKl |aCMPLA|l./R2.TPI/R)/l2.«TPI)aRFL  AM  17 

00  I 9*1*2  AM  18 

IF  (K.F0.1)  POT*Px*T2x(ILC)aPY*T2YMLC|aP2aT2ZI!LCI  AM  19 

IF  IK. EG. 21  P0T»PAaTlA<ILC|aPT*Tlr<lLCIaP2»T12(!LC)  AM  20 

POTaPDTaSALP(ILC)  AM  21 

TMMR(2.KI*TMHP<2*KI-POTaREAL<M)  AM  22 

TMHI (2aK>aTMH| I 2aK) -ROT*AIMAG (HI  AH  23 

1 CONTINUE  am  2* 

RETURN  AM  2S 

ENO  AM  26- 


F UNCTION  ATGN?  IA.VI  AT  1 

C AT  2 

C ATGN2  IS  ARCTANGENT  FUNCTION  MODIFIED  TO  RETURN  0.  MHEN  AaTaO . AT  3 

C AT  9 

IF  IX)  3.1.3  AT  S 

1 IF  <VI  3.2.3  AT  6 

2 ATGN2«0.  AT  T 

RETURN  AT  8 

3 ATGN2»ATAN2(X.VI  AT  9 

RETURN  AT  10 

ENO  AT  II- 


128 


1 

2 


SUBROUTINE  BLCKOT  (NUNlT.  1 1 1 1?.NBl.«S«NE0f  I BL 

C BL 

C HlCKOT  CONTROLS  T«f  RfAOlNU  AnQ  UNITING  Of  m A T P I A *LOCfS  ON  FIlFS  BL  1 

C fOB  TMF  OUT  -Of  -COWf  MUWl*  ->OL"T!ON.  BL  A 

C BL  5 

COMMON  AB I hOOO  > BL  6 

LOGICAL  E Nf  BL  / 

I ■ «ITE  (NUNIT)  (A«( j> . j» II . 12)  HL  8 

BFTUBN  HL  9 

F N TP V «LCMN  BL  10 

00  2 I - 1 . Nml*  s HL  1 1 

Bf  AO  (NONIT)  (API  Jl  t J»IUI2I  HL  12 

IF  ( F Nf ( NUN  I T ) ) f.O  10  1 HL  1 3 

? CONTlNuF  BL  14 

BFTUWN  HL  15 

3 POINT  4.  NUN  I T .NrtLKS.UlOf  BL  15 

IF  (NF0F.NF.T7/)  STOP  HL  17 

NF  0F« " BL  10 

OFTUOn  BL  19 

C 8L  20 

4 FORMAT  (11«  fOF  ON  UnIT.IT. 9*  NHL "5*  .13. NF^f«  .IS)  BL  21 

END  HL  22- 


SUHPO  J T 1 Nf  CAhC 

CH 

1 

c 

CB 

2 

c 

C ABC  COMPUTES  COEFFICIENTS  OF  Inf 

CONSTANT  (A),  r- 1 NE  (B).  ANO 

CM 

3 

c 

COSINE  (Cl  TE-MS  IN  TmL  C --'•'Ent  I N T F BPQL  A T I ON  FUNCTIONS  FOP  TmF 

CM 

4 

c 

CUPPFN’  vt c top  cjp. 

CB 

5 

c. 

C« 

6 

COMMON  /DATA/  L0.N.NP.M.M4.A ( InoO) 

. T ( 1 o 0 0 ) . 7-1000).  SldOOOl.BMlOO 

CB 

7 

10) .alp  1 1000) .BET  < 1000 ) . ICOnI dOOC) 

. I C0n2  ( 1000)  . I Tar,  ( 10001  .slam,  IPS 

CB 

8 

2y  m 

CB 

9 

COMMON  /CBN T / AJP( 100O i .A  I I ( 1001* • 

Bio (1000) .«I I (1000) .C I» (1000) .Ci 

CB 

10 

1 I ( 1 0001  .CUP (2000) 

CB 

1 1 

COMMON  /JUN»>/  NC  0 « « jQ  » 1 25  I , Nf  I » . j I 

* (25» .NCOZ. JOZ ( ?S» .NCIZ. JIZ (25) 

CM 

12 

COMMON  /ANGL/  SAL»>(10o0| 

CB 

13 

DIMENSION  T 1 * ( 1 ) . T 1 V ( | i . T 1 7 f 1 ) « 

T2* ( 1 ) . T2T ( 1 ) . T2Z ( 1 ) 

CB 

14 

COMPLf * Cup.CLO.ClL .Cl».A *.rt*.c* 

CM 

15 

EQUIVALENCE  ( T 1 * * s I ) • 'Hr, ALP).  (T1Z.PET).  (T2a.tC0N;j,  ( T ?Y » ICON 

CB 

15 

12).  (T27.ITAG) 

C8 

17 

OATA  TP/0.2B31Q53OM/ 

CM 

18 

IF  (N.fQ.O)  GO  TO  20 

CH 

19 

DO  19  !*1.N 

CB 

20 

CALL  TP  1 0 (HjCOl.jCO^.DIL.OI*) 

CB 

21 

cl*tp«dil 

CB 

22 

CKsTP«ni* 

CM 

23 

SINL=SIN(CL ) 

CB 

24 

COSL*COS(CL> 

CB 

25 

S INK=SIN (CR ) 

CM 

26 

COSK*COS (CK ) 

CB 

27 

SIL«*STN(C(  *C*d 

CB 

28 

cello=sinl*si  jk-sil* 

CB 

29 

IF  (JCOl.GT. 10000)  GO  TO  B 

CB 

30 

IF  (JCOl)  1 ,6, T 

CB 

31 

1 

CL0*(0..0.) 

CB 

32 

IF  (NCIX.LT.l)  GO  TO  T 

CB 

33 

DO  2 Ksl.NCIX 

CB 

34 

JlA*  = ) I X (K ) 

CB 

35 

2 

CLO=CLO*CUP( JIAK) 

CM 

36 

3 

CONTINUE 

CB 

37 

IF  (NCOA.lT.1 ) GO  TO  S 

CM 

38 

DO  4 «=l.NCO* 

CB 

39 

JO  AK  - JO  A (K  ) 

CB 

40 

4 

CLO*CLO-CUR( JOXK) 

CB 

41 

5 

CONTINUE 

CB 

42 

GO  TO  9 

CB 

43 

6 

CL0= ( 0 . . 0 . ) 

CB 

44 

GO  TO  9 

CB 

45 

7 

CLQ=CUP( JCOl » 

CB 

46 

IF  (ICON2fjCOll.EQ.il  GO  TO  9 

CB 

47 

IF  (JC01.E0.il  GO  TO  Q 

CM 

40 

CLOs-CLO 

CB 

49 

GO  TO  9 

CB 

SO 

fl 

CLO*CUO ( I ) 

CB 

51 

9 

CLL*Cup ( I ) 

CM 

52 

IF  (JC02.GT. 10000)  GO  TO  17 

ca 

53 

IF  (JCr>2)  10.15.15 

CB 

54 

10 

CLY=(0..0. J 

CB 

55 

IF  (NC07.LT. 1)  GO  TO  12 

CB 

50 

00  11  ms  UNCO/ 

CB 

57 

JQ7K*JQ7  <K) 

CB 

se 

11 

CLY*CLY*CU»(  JO/tO 

CB 

59 

12 

CONTINUE 

CB 

60 

ir  (NCT7.LT. 1)  GO  TO  14 

CB 

01 

DO  13  * *1*NC 1 7 

CB 

62 

JI7KSJI7«K) 

CB 

63 

13 

CLY*CLY-CUP( JI7K) 

CB 

64 

1<* 

CONTINUE 

CP 

65 

GO  TO  1« 

CB 

66 

15 

CLy*(0,.0.) 

CB 

67 

GO  TO  1 R 

CB 

68 

15 

CLY*Cub( JC02) 

CB 

69 

IF  (ICONI ( JC071.EQ. 11  GO  TO  lR 

CB 

70 

IF  (jrn2.EO.Il  GO  TO  IS 

CB 

71 

CLYs-CLY 

CB 

72 

GO  TO 

CM 

73 

17 

ClysCuo ( I ) 

CH 

74 
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18 

4**tClO#S!NK-CLL«SrtK*CLr«slNL>/CCLLO 

CB 

75 

B*«  ( CLO* (COSK-l . ) *CLL* (COSL-COSK) *CLY* ( 1 .-COSL)  > /CELLO 

CB 

76 

C*«-  ( CLO*S INK-CLL* (SlNL*SlNK)*CLV#SlNL) /cello 

CB 

77 

AIR(1)«R£AL <A*> 

CB 

IB 

Hill)  tllMAGUX) 

CB 

79 

8 IP  1 1 1 *REA  L <B*) 

CB 

80 

811 ( I ) * A 1 MAG  ( R < ) 

CB 

81 

C IP  < I > *P£Al.  <CX) 

CB 

82 

1* 

CI1 ( I)*AlMAG(C*> 

CB 

83 

?0 

IF  ( M aFQ . 0 ) RETU«N 

CB 

89 

C 

CB 

85 

c 

SURFACE  CURRENT  ON  EACH  PATCH  IS  CONVERTED  FROM  TwO  SURFACE 

CB 

86 

c 

COMPONENTS  TO  THREE  RECTANGULAR  COMPONENTS 

CB 

87 

c 

C8 

88 

K*LD-M 

C8 

89 

JCOI *N*2*M. 1 

CB 

90 

JC02*JC01 • m 

CB 

91 

DO  21  1*1. N 

CB 

92 

K*K  « 1 

CB 

93 

JCOI*  JCOI -2 

CB 

99 

JC02-JC02-3 

CB 

95 

CL0*CUP 1 JCOI ) 

CB 

96 

CLL*CUR 1 JCO 1 ♦ 1 ) 

CB 

97 

CUP( JC02)»CLO*Tl*  CKI *CLL«T;»A<K j 

CB 

98 

CUP  I JC02.1 )*CLO*TIy (K) ♦CLL*T2Y(k» 

CB 

99 

21 

CUR ( JC02  *2 ) *CLO*T 1 7 (K ) *CLL#T22 (k ) 

CB 

100 

»€  TURN 

CB 

101 

END 

CB 

102* 

FUNCTION  CANG  I Z) 

CG 

1 

C 

CG 

2 

C 

CANG  RETURNS  THE  PHASE  ANGLE  Or  A COMPLE*  NUMBER  TN  OCGRfES. 

CG 

3 

C 

CG 

9 

COUPLE*  Z 

CG 

5 

CANG*ATGN2(AIMAG<2I .REAL(Z) )*57a 2957796 

CG 

6 

RETURN 

CG 

7 

ENO 

CG 

SUBROUTINE  CATLOG 

CT 

1 

C 

CT 

2 

C 

CATALOG  CONTROLS  THE  WRITING  OF  FILES  11-16  ON  FILE  17  «H£N  THERE 

CT 

3 

c 

IS  A REQUEST  TO  INTEROUPT  CALCULATION,  FILE  17  IS  USEO  TO  RESTART 

CT 

9 

c 

THE  PROGRAM. 

CT 

5 

c 

CT 

6 

COMMON  CM(9000) 

CT 

7 

COMMON  /SAVE/  iKdSCOi  ilPflSOQl 

CT 

0 

COMMON  /MATPAR/  ICASE .NBLOKS.NPRL* .NLAST .NRLSYM, NPSYM,NLSyM 

CT 

9 

COMMON  /RESTRT/  IC1.IC2. IC3.NRES.NPRES. IBLCK • IOUMP . TMDUM.ElT IM 

CT 

10 

DIMENSION  I T f 7) 

CT 

11 

COMPLE*  CM 

CT 

12 

LOGICAL  ENF 

CT 

13 

EQUIVALENCE  (N.NRES).  (NP.NPREs).  <12. IBLCK) 

CT 

19 

DATA  (IT (I)  .1*1 .7)/ 11,12.1 3.19, 15.16.17/ 

CT 

15 

00  l 1*1.7 

CT 

16 

NUN I T* I T C 1 1 

CT 

17 

1 

REWIND  NUNIT 

CT 

19 

WRITE  (17)  IC1.IC2.IC3.N.NP.I2, ICASE 

CT 

19 

END  FILE  17 

CT 

20 

ISI*«6 

CT 

21 

IF  (ICASE. EQ. 9)  ISl**l 

CT 

22 

00  9 1 = 1, 1SI* 

CT 

23 

NUNIT *17  f I > 

CT 

29 

NEOF  *777 

CT 

25 

iflcnt*q  . . 

CT 

26 

2 

CALL  8LCKIN  (NUNIT. 1.12*1. NEOF) 

CT 

27 

IF  (NEOF.EO.O)  GO  TO  3 

CT 

26 

CALL  BLCKOT  (17,1,12.1.1) 

CT 

29 

IFlCNT*IFLCNT/ 1 

CT 

30 

GO  TO  ? 

CT 

31 

3 

ENO  FTLE  17 

CT 

32 

PRINT  10.  IFLCNT. NUNIT 

CT 

33 

9 

CONTINUE 

CT 

39 

IF  ( ICASE.NE .9)  GO  TO  9 

CT 

35 

iflcnt=o 

CT 

36 

5 

READ  03)  (CM(I)  .I«1.nP) 

CT 

37 

IF  (ENF (13))  GO  TO  6 

CT 

38 

WRITE  (17)  (CM ( I ) • 1*1 »NP) 

CT 

39 

iflcnt*iflcnt*i 

CT 

90 

GO  TO  S 

CT 

91 

6 

ENO  FILE  17 

CT 

92 

PRINT  10.  IFLCNT • IT (3) 

CT 

93 

iflcnt*o 

CT 

99 

7 

READ  (15)  (CM ( I ) • I *1 *NP ) 

CT 

95 

IF  (ENF (15))  GO  TO  8 

CT 

96 

wt?TTE  07)  ( Cm ( I ) * I *1  *NP) 

CT 

97 

IFLCNT*IFLCNT*1 

CT 

98 

GO  TO  7 

CT 

99 

8 

END  FILE  17 

CT 

50 

PRINT  10*  IFLCNT.ITI5) 

CT 

51 

9 

continue 

CT 

52 

WRITE  07)  (im).I«l.N) 

CT 

53 

WRITE  07)  (|P(I)tI*I.N) 

CT 

59 

REWINO  17 

CT 

55 

IF  ( IOUMP. EQ.O)  STOP 

CT 

56 

RETURN 

CT 

57 
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c 

10 


FORMAT  </.I5*26h  FlLfS  WRITTEN  FRO**  UNIT  .IS/) 
END 


C?  58 
Cl  59 

cl  60 


SUMROUMNE  Ch-POJ  Ch  1 

C Cm  i 

C Cn«POT  rnfCKS  FOW  INTFPRU^T  OuftfNG  CUT-OF»COHF  MA  r Pi*  HANOL  INF..  CM  3 

C TMIS  SnRROuTlNf  IS  C A|  l f 0 &T  C^VfMFSl  PROGRAM  I»TERR'*PT  POIMS,  Cm  <• 

C CM  S 

COMMON  /RES  TRT / ICI.IC2.IC1.NRFS.NPRFS. IHLCk,!OuMo,TMOum.EXT|m  Cm  ft 

COMMON  /MATPAP/  ICAS1 .NHLO*S.NP«L" .NL AST .NRLSYm.NosyM.NLStM  CM  1 

0 AM  [rtt/0/  CM  0 

POINT  ?.  IC1.ICP.1CJ  CM  9 

IF  t IOtiMP.CO.0)  MF  TUP*1  CM  10 

C CM  11 

c AUTOMATIC  FILF  DUMPING  CM  12 

C Cm  13 

CALL  SECOND  <T2)  Cm  1ft 

IF  (IC-.FO.O)  T 1 aF « 1 1 m Cm  IS 

!CK*1  Cm  1ft 

IF  ( (T?-T1 > •LT.TMOUH)  *ETuRN  Cm  I? 

T*T2-F*TIM  Cm  18 

POINT  ft  • T CM  19 

CALL  CATLOG  Cm  20 

PRINT  o CM  21 

T 1 =T2  Cm  22 

C CM  23 

C PFPOSITION  FRES  CM  2ft 

C CM  2S 

00  1 1*11.16  CM  26 

1 BACKSPACE  I CM  27 

IF  <ICP.£0.0)  RFTUPN  Cm  28 

IF  ( iCASE-ft)  ->.3»5  Cm  29 

? RFTURn  CM  30 

3 J*NPE  S- 1 C2#NPPES  CM  31 

IF  ( J.FQ. 0 1 OF  TURN  CM  32 

00  ft  1 = 1.  J CM  33 

ft  BACKSPACE  13  CM  3ft 

RETURN  CM  35 

5 J*(NRES/NPRES-IC2>*NBt.SYM  CM  3ft 

IF  <J.FQ.0>  RFTUWN  CM  37 

00  6 1*1. J CM  38 

ft  BACKSPACE  11  CM  39 

RETURN  CM  ftO 

C CM  ftl 

7 FORMAT  < 12M  CHECKPOINT  .fttSl  CM  ft2 

a FORMAT  <30 H FILE  Dij»P  INITIATEO.  7 7ME *,F 1 0. 3.ftw  SEC)  CM  ft3 

9 FORMAT  <22 M FILF  DUMP  COMPLF TE ) CM  Aft 

ENO  CM  AS- 


SUBROUTINE  CMsET  (NROw.NCOL .CM.nLOAO.RKM)  CM  1 

C CM  2 

C CMSET  SETS  UP  TME  COMPLEX  STRUCTURE  MATRIX  IN  THE  ARRAY  CM  CM  3 

C CM  ft 

COMMON  /DATA/  LO.N.NP,M.MP,X<1000).Y<1000). 2(1000). Si < 10001 *BI < 100  CM  5 

10)  .ALP  < 10001  .RET  < 1000)  .ICON  1 < 10001  . IC0N2  < 1 000 1 • I T A<5  <1 000 1 .ML  AM,  IPS  CM  6 

2YM  CM  7 

DIMENSION  CMINROW.NCOI  ) CM  8 

COMMON  /MATPAR/  I CASE .NBLOkS.NPRLK .NLAST .NBLSYM.NPSVM.NLSYM  CM  9 

COMMON  /RESTRT/  IC1.IC2* IC3.NRFS.NPRES. IBlCK. IOUMd. TMDuM.EXT !M  CM  10 

COMMON  /ANGL/  SALP(IOOO)  CM  11 

COMMON  /JUNK/  NCOX, JOY <251 .NCIX, JIX <251 .NC07.J02 <?S) *NCI2.JI2<25»  CM  12 

COMMON  /REFL/  RHOX ,RHOY .RHOZ.C AR J.SAB J.SALPR »PX *Py .REFS.REFPS  CM  13 

COMMON  /ZLOAD/  ZARPAY(IOOO)  CM  1ft 

COMMON  /GND/  7RAT I . ZR A T 12. CL *Ch. SCRWL .SCWMR.NRADL .KSYMP, IF AR. IPERF  CM  IS 

DIMENSION  CAfl(l).  SAB<1)  CM  1ft 

DIMENSION  FTR(  II.  FTK3).  TWH«M*2l,  TftNl  (3.2)  CM  17 

EQUIVALENCE  (FTR.TWHR) . (ETI.TwmI),  (CAB.ALP).  (SAB.BETI  CM  18 

COMPLEy  fj.cm.zarray  CM  19 

COMPLF*  ZRATI.2RATI2.REFS.9EFPS.ZRSIN.ZRATIS.T1.ZSCRN  CM  20 

DATA  PI2/ft. 283105308/. ETA/376. 73/. Fj/<0. *1 .1/  CM  21 

IF  (ICASE-GT.2)  REMIND  11  CM  22 

I2=2*NPRLK»NPOM  CM  23 

1BLCK*|2  CM  2ft 

IT*NPBLK  CM  25 

Nt l *1C1 ♦ 1 CM  26 

IF  (ICl.EQ.O)  GO  TO  1 CM  27 

IF  ( 1 C 1 .LE. (-1)1  GO  TO  25  CM  28 

CALL  BI.CKIN  <11.1.12*  I C 1 • 1 ) CM  29 

1 CONTINUE  CM  30 

C CM  31 

C CYCLE  OVER  MATRIX  BLOCKS  CM  32 

C CM  33 

DO  2ft  TXBLK1*nI1*NRLOkS  CM  3ft 

ISV*<IXBLK1-1)»NRBLK  CM  35 

IF  < IXRLKl .EQ.NBLOKS)  IT*NLAST  CM  36 

IF  ( ICASE.LT • 3)  I T *NCOL  CM  37 

IF  <NRAOL.EQ.01  GO  TO  2 CM  38 

T1*FJ*2367. 067/FLOAT (NRA0L1  CM  39 

T2*SCR^R*FLOAT (NRAOL)  CM  ftO 

2RATIS*2RATI  CM  ftl 

2 00  3 lal.NROM  CM  ft2 

no  3 J«|.IT  CM  ft3 

3 CM ( I*J)*(0.«0.)  CM  ftft 

IF  (N.FQ.01  GO  TO  20  CM  ft5 
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c 

c 

c 


WIRE  SOURCE  LOOP 


f 


c 

c 

c 


5 


6 


C 

c 

c 


7 

e 

c 

c 

c 


9 


10 


c 

c 

c 

11 


It 

13 


CM 

96 

WIPE  SOURCE  LOOP 

CM 

67 

CM 

68 

00  19  jt|iN 

CM 

99 

CALL  To  10  1 J. JCOl. JCOP.OIL.OIK) 

CM 

SO 

S«SI t J) 

CM 

SI 

0-BH  J> 

CM 

52 

XJ«X 1 J) 

CM 

S3 

YJ*Y  < J) 

CM 

S9 

7j»Z 1 J) 

CM 

S5 

CAB J»CA8 ( J) 

CM 

56 

SAR J»SA§ 1 Ji 

CM 

57 

salpj-salpi J) 

CM 

58 

CM 

59 

observation  loop 

CM 

60 

CM 

61 

00  18  I PR* 1 • I T 

CM 

62 

l»ISV* IPO 

CM 

63 

IF  (I.GT.NP)  00  TO  19 

CM 

69 

CM 

65 

WIRE  OBSERVATION  POINT 

CM 

66 

CM 

67 

XI J«X ( I»-XJ 

CM 

68 

v I j*y ( i »-vj 

CM 

69 

IJ»I-J 

CM 

70 

CA8 I *CAB ( I 1 

CM 

71 

SABI"SAB(I) 

CM 

72 

SALPI*SALPU» 

CM 

73 

no  <*  ip*i.3 

CM 

76 

ETRdP)«0. 

CM 

75 

ETH  IP>«0. 

CM 

76 

rfl*-i. 

CM 

77 

CN 

78 

GROUNO  LOOP 

CM 

79 

CM 

80 

IFLG*0 

CM 

81 

00  13  IO»l«KSVMP 

CM 

82 

rfl»-ofl 

CM 

83 

SALPR*SALPJ«RFL 

CM 

89 

ZI  J*Z(  n-RFL*ZJ 

CM 

85 

ZP= X I J*CABJ* VI J«SABJ* 71 J«SALPR 

CM 

86 

01 J*CABI«CABJ*SABI*SABJ*SALPI«SALPR 

CM 

87 

RHOX*XI J-CABJ*ZP 

CM 

88 

RHOY*y I J-SA8J«ZP 

CM 

89 

RHOZ*Z I J-SALPR* ZP 

CM 

90 

PH«SORT (RH0X»RH0X*RN0y«Rm0V*Rm07#RM07) 

CM 

91 

IF  (Rn.GT • 1 .E-6)  GO  TO  5 

CM 

92 

phox»o. 

CM 

93 

RHor*o. 

CM 

99 

RMOZ*0. 

CM 

95 

OIP-O. 

CM 

96 

GO  TO  9 

CM 

97 

RHOX«BhOX/RH 

CM 

98 

*»MOY*RmOY/RM 

CM 

99 

RMOZ*RhOZ/RH 

CM 

100 

oiw*Rhox#cabi ♦RmOY*SA8I *rhoz*salpi 

CM 

101 

r*sqrt ( x i j#x i j* v i j*y i j*z u#Z i j> 

CM 

102 

IF  (JP.NE.2t  GO  TO  12 

CM 

103 

IJ«1 

CM 

109 

IF  (IPERF.EQ.l)  GO  TO  11 

CM 

105 

RMAG*R 

CM 

106 

XyMAG*SORT <Xl J«Xl J*Y) J«Yl J) 

CM 

107 

CM 

108 

set  parameters  for  radial  wire  ground  screen. 

CM 

109 

CM 

110 

IF  INRAOL.EO.O)  go  TO  8 

CM 

111 

XSPEC*fX(I)*Zj»Z<I>#Xj>/(Z<l>»7J> 

CM 

112 

vspEc»iv<i>*zj«zin#vj>/iz<n*zj) 

CM 

113 

RH0SPC*S0RT(XSPEC»XSPEC*YSPEC«VSPEC*TZ*T2) 

CM 

116 

IF  (RHOSPC.GT.SCRWL)  GO  TO  7 

CM 

115 

ZSCRN*TI*RhOSPC*ALOG(RHOSPC/T2) 

CM 

116 

ZRATl*fZSCBN«ZRATISI/(£TA*ZRATIS*ZSCRN> 

CN 

117 

GO  TO  8 

CM 

118 

ZRAT  WRATIS 

CM 

119 

IF  (XYMAG.GT.UE-6)  GO  TO  9 

CM 

120 

CM 

121 

CALCULATION  OF  REFLECTION  COEFFICIENTS  WHEN  GROUND  IS  SPECIFIEO. 

CM 

122 

CM 

123 

PX«0. 

CM 

129 

PV*0. 

CM 

125 

CTH* ]. 

CM 

126 

ZRS IN* ( 1 . * 0 . ) 

CM 

127 

GO  TO  10 

CM 

128 

PX*-YI J/XYMAG 

CM 

129 

PV.XI J/XYMAG 

CM 

130 

CTM«ZI J/RMAG 

CM 

131 

ZRSIN«CSORT(1.-7RATI*7RATI*(1.-cTm*CTH)) 

CM 

132 

REFS«-(CTm-ZRATI#ZRSIn)/(CTH*ZRATI*I»SIN) 

CM 

133 

REFPS* ( ZRAT I*CTH-ZRSIn»/ (ZRAT I*CTH*2RSIN) 

CM 

136 

REFPS*oEFPS-REFS 

CM 

135 

CM 

136 

MATRIX  CLEMENTS  FOR  WIRE  SOURCE  POINTS  AND  vIRC 

OBSERVATION  POINTS 

CM 

137 

CM 

138 

IF  (R.OT.RKH)  GO  TO  12 

CM 

139 

CALL  INTO  (fl.S.RH.7P.0lJ*0IR.£TR.CTU0IL*0I»:*lJ. 

IP) 

CM 

160 

iflg*i 

CM 

191 

GO  TO  13 

CM 

162 

call  APRXE  (R.S.ETA.Pl2.0IJ.0lR.ZP.RH.fTR(2l.ETI(2).lP) 

CM 

163 

CONTINUE 

CM 

166 

132 


c 

CM 

1 45 

c 

till  mm*!*  elements,  element  locations  oeterminfo  b»  connection 

CM 

146 

c 

DATA  , 

CM 

14? 

c 

CM 

148 

CALL  maTEIl  (ETB.ET I. IPR. J, JCOJ , JC02,CM,NPOw,NC0L. IELG) 

CM 

149 

GO  TO  18 

CM 

150 

c 

Surf  act  observation  point 

CM 

151 

u 

!K*!-NP 

CM 

152 

IPATCMs  < I K • 1 ) /2 

CM 

153 

!«*IK-l!K/2»»? 

CM 

154 

IE  TlK.CO.O.ANO.lPP.NE.ll  r,0  m u 

CM 

155 

DO  IS  I pa  1 • 3 

CM 

156 

TwmP< 10,11 x 0 , 

CM 

157 

TwmP ( IP.2I =0. 

CM 

158 

TwhI < IP, 1 ) rO. 

CM 

159 

15 

TwhI <10,21=0, 

CM 

160 

C 

CM 

161 

C 

GROUND  LOOP 

CM 

162 

c 

CM 

163 

IElG*0 

CM 

164 

DO  16  IP»1,*SVMP 

CM 

165 

c 

CM 

166 

c 

MATPI*  ELEMENTS  E0»  MTPE  SOURCE  POINTS  AND  SUPEACE  OBSERVATION 

CM 

167 

c 

POINTS 

CM 

168 

c 

CM 

169 

16 

CALL  M^NAT  IX.l.V  J«ZJtS«CAPj,SAH  JtS  ALP  J.  0 IL  .0  IK  . IP  A TC*.  T*MP,  T«h  I , IP 

CM 

170 

1 ,R*M, IFLG) 

CM 

171 

IE  (IK.EO.OI  GO  TO  1? 

CM 

172 

CALL  MATE  II  ( T MM9  < 1 • 1 ) « T B*i M 1 • 1 1 • IPP , j,  JC01  • JC02  «rM  «NRO* .NCOL  • IELG 

CM 

173 

11 

CM 

174 

GO  TO  18 

CM 

175 

17 

CALL  MATEIL  <TMMP<1.2i .TlMIll,?! .IPP, J.JC01*JC02.CM.NR0M*NC0L. IELG 

CM 

1?6 

11 

CM 

177 

18 

CONTINUE 

CM 

178 

19 

CONTINUE 

CM 

179 

IE  <NPAOL ,NE ,0 ) ZRATI*ZRATIS 

CM 

180 

IE  (M.EO.OI  GO  TO  21 

CM 

181 

?0 

IN 1 • 1 SV • 1 

CM 

182 

IM?*ISV«IT 

CM 

183 

c 

CM 

184 

c 

Elements  eo»  sure  ace  source  points  ano  mire  observation  points 

CM 

185 

c 

CM 

186 

IE  <IN1.LE.NPI  CALL  UOOTES  < IN] , IM2, C*.NR0m,NC0L 1 

CM 

187 

c 

CM 

188 

c 

ELEMENTS  EoR  SUBEACE  SOURCE  AND  OBSERVATION  POINTS 

CM 

189 

c 

CM 

190 

IE  (IM2.GT.NP1  CALL  MMAT  ( IM1 , IN2,CM,NR0«,NC0L 1 

CM 

191 

c 

CM 

192 

c 

MATRIX  ELEMENTS  MODIEIEO  By  LOADING 

CM 

193 

c 

CM 

194 

21 

IE  (NLOAD.EO.Ol  GO  TO  23 

CM 

195 

DO  22  t*i • IT 

CM 

196 

JMSVM 

CM 

197 

IE  (J.GT.NPI  GO  TO  23 

CM 

198 

22 

CN< J.I1*CM< J, 11 -ZAPPA Y< ji 

CM 

199 

23 

IE  IICaSE.lt. 31  GO  TO  24 

CM 

200 

CALL  BLCKOT  ( 1 1 • 1 • 1 2* 1 * 31 ) 

CM 

201 

IC 1 * I ABLE  1 

CM 

202 

IE  (ICl.EO.NRLOKS!  GO  TO  24 

CM 

203 

CALL  CmkPRT 

CM 

204 

24 

CONTINUE 

CM 

205 

IE  <ICASE.LT.31  GO  TO  25 

CM 

206 

IC1--2 

CM 

207 

IE  UCASE.E0.3l  IC1»-1 

CM 

208 

call  cmkppt 

CM 

209 

REmINO  11 

CM 

210 

25 

RETURN 

CM 

211 

ENO 

CM 

212* 

SUBROUTINE  CONECT  MGnD) 

CN 

1 

C 

IN 

2 

C 

CONNECT  SETS  UP  SEGMENT  CONNECTION  OAT  A In  ARRAYS  ICONl  ANO  IC0N2 

CN 

3 

C 

BY  SEARCHING  EOP  SEGMENT  ENDS  T*AT  *PE  IN  CONTACT. 

CN 

4 

c 

CN 

5 

COMMON  /DATA/  LO.N.NP.M.MP.K < 1000) .Y ( 1000) «Z (1000) »Sl < 1000 > .81 < 100 

CN 

6 

10) .ALP <10001 *BET< 1000) « ICONl < 1 000 ) • ICON2 < 1000 ) • I T AG ( 1 000 ) .ML AM, IPS 

CN 

7 

2YM 

CN 

8 

DIMENSION  X2 ( 1 ) • Y? (1 ) • 12(1) 

CN 

9 

EOUlVA(  ENCE  (X2(l).si(l)).  < Y2  < l ) • ALP  < 1 ) ) • < 22 ( 1 1 .BET ( 1 ) ) 

CN 

10 

SMIN-l.E-3 

CN 

11 

JNO*0 

CN 

12 

IE  ( IGnD.EQ.O)  GO  TO  3 

CN 

13 

PRINT  4 1 

CN 

14 

IE  < IGNO.GT ,0)  PRINT  4.2 

CN 

IS 

IE  (IPSVM.NE.2I  GO  TO  1 

CN 

16 

NP*2*NP 

CN 

17 

MP«2*MP 

CN 

18 

1 

IE  (IABSUPSYm),lE.2)  GO  TO  2 

CN 

19 

NP*N 

CN 

20 

MPsM 

CN 

21 

2 

IE  (NP.GT.N)  STOP 

CN 

22 

IE  (NP.EO.N.AND.M.EO.MP) ipsym.o 

CN 

23 

3 

IE  (N.EO.O)  60  TO  76 

CN 

24 

00  32  T»1*N 

CN 

25 

811*111) 

CN 

26 

vi  i«rin 

CN 

27 

2II*2(M 

CN 

28 

133 


r 


Xl?«I2(II 

CN 

29 

V 1 2 — T ? f I 1 

CN 

30 

■ 

712-72(1) 

CN 

31 

SLFN-SOOTI (H2-Xll 1 Of  1 2-T 11 > ••?» (ZI2-2 I 1 >#*2> 

CN 

32 

c 

CN 

33 

c 

OCTEOMfNC  CONNECT  I ON  DATA  FO«  CNO  1 Of  SEGMENT* 

CN 

3ft 

c 

CN 

35 

IF  (1GSO.LT.1I  GO  TO  S 

CN 

36 

ffl 

SEP-711 /SLFN 

CN 

37 

IF  (SFo.GT. (-SMINI 1 GO  TO  A 

CN 

30 

POINT  Al.  I 

CN 

39 

STOP 

CN 

AO 

A 

IF  (A0S(SEPl .GT.SNJNI  GO  TO  5 

CN 

ftl 

I CON  1 1 I I -I 

CN 

A2 

GO  TO  17 

CN 

A3 

5 

IF  (ICONl (II .Nf.O)  GO  TO  17 

CN 

Aft 

00  fe  If-l.N 

CN 

A5 

IF  (IC.EQ.lt  GO  TO  6 

CN 

Aft 

ISFG-IC 

CN 

A7 

SEo»(4«S(*Il-*(lCt  ) ♦ARS(Yll-T(IO  »*A0S(7Il-7(ICII  )/SL£N 

CN 

AS 

IF  (SEP.LT.SNINI  GO  TO  7 

CN 

A9 

Sfp* (APS (XI l-*2( ICl I ♦A0SITIl-Y2(ICl 1 *085(71 1-22(10) l/SLEN 

CN 

50 

IF  (SFP.LT.SMlNt  GO  To  12 

CN 

51 

ft 

CONTINUE 

CN 

52 

GO  TO  | 7 

CN 

53 

\ 

7 

IF  ( ICONl ( ISEGI 1 9.1.10 

CN 

5ft 

8 

ICONl (Il-ISEG 

CN 

55 

ICONl ( ISEGI -I 

CN 

56 

GO  TO  17 

CN 

57 

9 

ICONl ( I 1 -ICONl (ISEGI 

CN 

58 

GO  TO  17 

CN 

59 

10 

JNO* JNO-1 

CN 

60 

ICONl (II-JNO 

CN 

61 

I X- ICONl ( ISEGI 

CN 

62 

ICONl (ISEGI-JNO 

CN 

63 

IF  (ICONl (1*1 ,E0. ISEGI  GO  TO  ll 

CN 

6ft 

I C0N2 (1*1 -JNO 

CN 

65 

GO  TO  17 

CN 

66 

11 

ICONl  (HI*  JNO 

CN 

67 

GO  TO  17 

CN 

68 

1? 

IF  ( IC0N2I ISEGI 1 1A.11.1S 

CN 

69 

13 

ICONl (Il-ISEG 

CN 

70 

IC0N2 ( I SEGl *1 

CN 

71 

GO  TO  17 

CN 

72 

1* 

ICONl ( T >-IC0N2( ISEGI 

CN 

73 

GO  TO  17 

CN 

7ft 

15 

JNO- JNO-1 

CN 

75 

ICONl ( II-JNO 

CN 

76 

IX-ICON? ( ISEGl 

CN 

77 

IC0N2< ISEGI -JNO 

CN 

70 

IF  (ICONHIXI.EQ.  ISEGI  GO  TO  If. 

CN 

70 

u 

IC0N2(I*|- JNO 

CN 

80 

GO  TO  17 

CN 

81 

1ft 

ICONl (TXI-JNO 

CN 

02 

C 

CN 

03 

C 

DETEPMTNE  CONNECTION  OATA  FOP  CNO  2 OF  SEGMENT* 

CN 

0ft 

c 

CN 

05 

17 

IF  (IGNO.LT.il  GO  TO  ?0 

CN 

06 

SEP-ZI2/SLEN 

CN 

07 

IF  (SEP.GT. I-SMINI | GO  TO  18 

CN 

08 

P«INT  A 1 • I 

CN 

09 

STOP 

CN 

90 

l« 

IF  (ABS(SEP» .GT.SMINI  GO  TO  20 

CN 

91 

IF  (ICONl (11 .NE. I)  GO  TO  19 

CN 

92 

PRINT  AA.  I 

CN 

93 

STOP 

CN 

9ft 

19 

IC0N2 ( I I -I 

CN 

95 

GO  TO  12 

CN 

96 

20 

IF  (IC0N2(I I .NE.Ol  GO  TO  32 

CN 

97 

00  21  IC-1.N 

CN 

90 

IF  (IC.EO.I!  GO  TO  21 

CN 

99 

ISEG-IC 

CN 

100 

SEP-  ( APS  ( X I2-X  ( ICl ) - AOS  ( t I2*»V  ( IC 1 1 *A0S  (2 12-Z  ( ICl  1 1 /SEEN 

CN 

101 

IF  (SEp.LT.SMTNI  GO  TO  22 

CN 

102 

SEP-(APS(XI2-*2(ICI l*ABS< TI2-V2(IC> l-ABS (2I2-Z2( ICl >» /SEEN 

CN 

103 

IF  (SFP.LT.SMINI  GO  To  27 

CN 

10ft 

21 

CONTINUE 

CN 

105 

GO  TO  12 

CN 

106 

22 

IF  ( ICONl ( ISEGI 1 2a.23.25 

CN 

107 

23 

IC0N2 ( 1 1 -ISEG 

CN 

108 

ICONl (TSEG1-I 

CN 

109 

GO  TO  12 

CN 

110 

2ft 

IC0N2 ( I 1 -ICONl (ISEGI 

CN 

111 

GO  TO  12 

CN 

112 

25 

JNO -JNO-1 

CN 

113 

IC0N2 ( T 1 -JNO 

CN 

HA 

IX-ICONl (ISEGI 

CN 

115 

ICONl (ISEGI-JNO 

CN 

116 

1 

IF  (ICONl  (IX!  .EO. ISEGl  GO  TO  2ft 

CN 

117 

IC0N2 ( I X 1 -JNO 

CN 

110 

GO  TO  12 

CN 

119 

26 

ICONl (IX | -JNO 

CN 

120 

GO  TO  12 

CN 

121 

27 

IF  (ICON?! ISEGI } 29.2ft. 30 

CN 

122 

20 

ICON 2 (Il-ISEG 

CN 

123 

IC0N2 ( I SEGl * I 

CN 

12ft 

GO  TO  12 

CN 

125 

29 

IC0N2 ( 1 1 - ICON? (ISEGI 

CN 

126 

GO  TO  12 

CN 

127 

A 


134 


JNO* JNO- 1 
I COM2  1 1 ) * JNO 
1X*!C0N2(1SEG) 

IC0N2( ISEG)  * JNO 

IF  I ICONJ | I*» .fO. !S£G)  GO  TO  31 
ICON2 ( f X ) ■ JNO 
GO  TO  1? 

ICON!  ( M)  =JNO 
CONTINUE 

IE  (M.FQ.O)  GO  TO  16 

SEARCH  FOR  SEGMENT  ENOS  COnnECTFO  TO  PATCH  CENTER'--  • WHEN  FOUNO 
SET  CONNECTION  DATA  FOR  SEGMENT  ENO  AND  SUBDIVIDE  PATCH. 

SSMIN«SMIN*SMIN 
I«*LO*l 
00  35  [»1.m 
IX*IX-| 

XS*X  (IO 
VSsVdAl 

zs*z( m 

DO  3<»  (SEG«1.N 
* 1 1 1 1 SEGl 
YI1*YI|S£G) 

Z 1 1 *Z  ( I SEGl 
Xl2*X?< ISEG) 

YI2*Y2( I SEGl 
Z I2*Z2 ( I SEGl 

SLEN*( (H2-XI1 »••?• ( Y I2-Y 1 1 (ZI2-ZI 1) ••2»*SSMIN 
SEP*C*I  1-AS)*»2*  (VH-yS)#*?.(Z|i-ZS)««2 
IE  (SEp.GT.SLEN)  GO  To  33 
ICONl (|SEG)*lOOOO.| 

CALL  SijRPh  (I.IC.xil.vI1.7ll.xi?«VI2.2l2) 

GO  TO  15 

SEP*( *I?-XS)»«2Mvt2-vS)*»?. (ZI2-ZS)**? 

IE  (SEP. GT. SEEN)  GO  TO  3* 

ICON? ( ISEG 1*10000*1 

CAIL  SOBPH  (I.ICtiIl*vIl*ZIl«AI?tYl2tZI2) 

GO  TO  35 
CONTINUE 
CONTINUE 

PRINT  4S.  n*NP*IPSVH 
IE  (M.GT.O)  PRINT  45.  M.MP 
IE  (N.FO.NP)  GO  TO  40 
ISFG»N/NP 

IE  (IPSYM)  38*37. 3S 
STOP 

PRINT  46.  I SCG 
GO  TO  40 
IC* ISEG/2 

IE  (ISFG.E0.8)  IC«1 
PRINT  47.  IC 
CONTINUE 
RETURN 

FORMAT  (/.3X.23HGR0UN0  PLANE  SPECIFIED. I 

EORKAT  (/. JM.46MMHFRE  WIRE  ENOS  TOUCH  GNOUNO.  CURRENT  MILL  BE  *38H 
1 INTERPOLATED  TO  IMAGE  IN  GROUND  PLANE../) 

FORMAT  ( 30m  GEOMETRY  DATA  fRROR—  SEGMENT . JS.21H  E*TEN0S  BELOW  GRO 
KIND) 

FORMAT  (2RH  GEOMETRY  DATA  ERROR— SEGMENT . IS. 16H  LIES  IN  GROUNO  .6H 
1PLANE.) 

FORMAT  (/.3A.20HTOTAL  SEGMENTS  USED*. IS.SX . 12HN0.  SEG.  IN  • 1 7HA  SV 
1MMETRIC  CELL*.I5.5K.14HSYMmETRv  FlAG*.I3) 

FORMAT  (14H  STRUCTURE  HAS.I4.2Sh  FOLD  ROTATIONAL  SYMMETRY./) 

FORMAT  (14H  STRUCTURE  HAS.I2.IRM  PLANES  OF  SYMMETRY./) 

FORMAT  (3X.19MT0TAL  PATCHES  USED*. I5.6X.32mn0.  PATCHES  IN  A SYMMET 
1PIC  CEIL*. IS) 

END 


SUBROUTINE  CONVRT 

CONVERT  CHANGES  GEOMETRY  DATA  FROM  TMF  FORM  STATInG  X.Y.Z 

coordinates  or  EACH  segment  end  to  a.Y.Z  of  the  segment  center 

PLUS  SEGMENT  LENGTH  AnD  ORIENTATION  ANGLES  AS  REQlIREO  IN  MAIN 
program. 


COMMON  /DAT A/  LD.N.NP.M.MP.X  U 000) * t ( 1000) .ZC1000) .SI (1000) .Bill  00 
10) *ALP ( 1000) .BE T (1000) .ICONl (1000) . /CON2MOOO) • ITaG(lOOO) .WLAM.IPS 
2YM 

01 ME NS TON  x2 ( 1 1 • Y2(l).  22(1) 

COuIVAiENCF  (X2(1).S1(1))«  ( Y2 ( 1 ) • ALP ( 1 ) ) • ( Z2 ( 1 ) .BET ( 1 ) ) 

IF  (N.EQ.O)  RETURN 
DO  1 1*1. N 
X A*X ( T ) 

Y A«V  ( I ) 

7A*Z(H 
XB*X2 ( I ) 

YS*Y2 ( T ) 

28*72(1) 

1 (I)*(kA.I3)*.S 
Y(|)«(YA.YB)R.S 
/(n*(7A.7-»«,S 

XAaXB-vA 

YA*YB-yA 

?A*7B-7A 

SI  (I)*«iORT(XA*XA.YA*YA.ZA*ZA) 
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1 


1 


t 


c 

c 

c 

3 


c 

c 

c 

4 


c 

c 

c 

5 


c 

c 

c 

6 


7 

8 

C 

C 

C 

9 


ALP(I)*ASEN(2A/Sl(I)) 

CV 

28 

9F  T ( I > ■ ATGN2 ( V A. X A ) 

CV 

29 

RE  TURN 

CV 

30 

ENO 

CV 

31* 

SUBROUTINE  OAT  AGN 

da 

1 

da 

2 

OATAGN  ! S TH£  MAIN  ROUTINE  FOB  INPUT  OF  GEOMETRY 

DATA* 

da 

3 

OA 

4 

COMMON  /DATA/  LD .N .NP.M .HP . X ( 1 000 ) • V ( 1 000 ) • Z ( 1 000 ) .SI (1000) *81(100 

OA 

5 

10) • ALP ( 1000) *neT( 1000) *ICONl( 10001* IC0N2< 1000) • IT  AG (1000) *«L AM* (PS 

DA 

6 

2ym 

OA 

7 

DIMENSION  A 2 ( 1 ) • T2 ( 1 ) * 22(11 

OA 

8 

DIMENSION  ATST (9) • IF i (2) • IFY(2),  IF2(2) 

OA 

9 

INTEGCO  GM.ATST 

OA 

10 

EQOIVAiENCF  (12(1)  *S1  (1)  I • ( Y2  ( \ ) . ALP  < 1 1 ) * (22(1) 

.BET(l)) 

OA 

11 

OATA  ATST/ 2MG« . 2HG* . 2mGR • 2hGS * 2H6F  *2HGM • 2HSP • 2HSS 

.2HGC/ 

DA 

12 

OATA  IF*/lM  *1HI/*IFV/1M  *1HY/v|F2/1H  * 1H2/ 

DA 

13 

OATA  TA/0. 01745329252/ 

OA 

14 

IPSTM-0 

OA 

15 

NMfRC*'* 

0 A 

16 

N»0 

DA 

17 

NP»0 

OA 

18 

M«o 

DA 

19 

mP»o 

OA 

20 

DO  1 1*1 *LO 

DA 

21 

ICON1 (1 ) *0 

OA 

22 

ICON2 ( I ) *0 

OA 

23 

PRINT  ?| 

OA 

24 

PRINT  ?2 

OA 

25 

OA 

26 

READ  GEOMETRY  DATA  CAOO  AND  BRANCH  TO  SECTION  FOR 

operation 

OA 

27 

REQUESTED 

OA 

28 

OA 

29 

READ  23*  GM*ITG*NS*X»l*YMl*2«l*XM2*Y«2*2N?*RAO 

OA 

30 

IF  (N*m.GT.LO)  GO  TO  20 

OA 

31 

IF  (GM.EQ.ATST(l) ) GO  TO  3 

OA 

32 

IF  (GM.EQ.ATST12))  GO  TO  6 

OA 

33 

IF  (GM.EQ.ATST (3) ) GO  TO  7 

OA 

34 

IF  (GM.EO.ATST(4) ) GO  TO  9 

DA 

35 

IF  (GM.EO.ATST(7) 1 GO  TO  4 

OA 

36 

IF  (GM.EQ.ATST (8) ) GO  TO  5 

OA 

37 

IF  (G'  .EQ.ATST(S) ) GO  TO  17 

OA 

38 

IF  (GM.EO* ATST (8) ) GO  TO  U 

OA 

39 

IF  ( 'jM.EO*  ATST  ( 9)  ) GO  TO  IS 

OA 

40 

GO  TO  19 

OA 

41 

OA 

42 

GENERATE  SEGMENT  OATA  FOR  STRAIGHT  MIRE • 

OA 

43 

OA 

44 

NWIRE*NM1PE«1 

OA 

45 

I1*NM 

OA 

46 

I 2*N*NS 

OA 

47 

PRINT  24.  N«lR€*Xtfl*V«l*ZMl*)(N2,V«2*2tt2*RAD*NS*Il 

• 12* ITG 

DA 

48 

CALL  WIRE  (XW1*YW1*ZM1*XW2*YW2*7W2*RA0*NS*ITG) 

OA 

49 

GO  TO  2 

OA 

50 

OA 

51 

generate  data  for  a surface  patch 

OA 

52 

DA 

53 

1 1 *M* 1 

DA 

54 

PRINT  32*  tl*XWl*YWl*?Wl*XW2*YW?*ZW2 

OA 

55 

XW2«XW2*TA 

OA 

56 

TW2«YW2»TA 

OA 

57 

CALL  PATCH  (1TG*NS*XW1*VW1*ZW1*XN2,YH2*2W2) 

DA 

58 

GO  TO  ? 

OA 

59 

OA 

60 

FORM  SURF *C€  BY  MULTIPLE  SmIFTImO  OF  L»ST  PATCH  ImPUT . 

DA 

61 

OA 

62 

PRINT  33.  ITG*XWl*NS*YMl 

OA 

63 

CALL  PACHS  (ITG*NS*XM1*YW1*2W1*XW2*YW2*2W2) 

OA 

64 

GO  TO  2 

OA 

65 

DA 

66 

REFLECT  STRUCTURE  ALONG  X*Y*  OR  2 AXES  OR  ROTATE 

TO  form  ctlinoer. 

OA 

67 

OA 

68 

IY.NS/10 

OA 

69 

IZ*NS-IVM0 

OA 

70 

IX* IV/ 1 0 

OA 

71 

IV»IY-IX*10 

OA 

72 

IF  (IX.NE.O)  IX-1 

OA 

73 

IF  (IY.NE.0)  I Y-l 

OA 

74 

IF  (I2.NE.0)  I2«l 

OA 

75 

PRINT  2S«  IFX(IX»1)*IFY(IY«1)«IF2(I2»1)*I7G 

OA 

76 

GO  TO  fl 

DA 

77 

PRINT  ?6*  NS.ITG 

OA 

78 

IX.-l 

OA 

79 

CALL  REFLC  (IK.IY.I2.ITG.NS) 

OA 

80 

GO  TO  ? 

DA 

81 

OA 

82 

scale  structure  dimensions  8V  FACTOR  XWl. 

OA 

83 

DA 

84 

IF  (N.EQ.O)  GO  TO  11 

OA 

85 

00  10  1*1. N 

OA 

86 

X(!)*X(T)«XWl 

OA 

87 

Y ( I ) *Y ( I ) *XN 1 

DA 

88 

2 ( I ) *7 ( I ) #XWl 

OA 

89 

X2 ( I ) *Y2 ( I ) •XMl 

DA 

90 

V2(I)*Y2(I)«XW1 

OA 

91 

72(1) *72 ( I ) •XMl 

DA 

92 
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10 

0! (ll*ni <t>*Xtfl 

OA 

93 

11 

IF  I*.f0.0>  GO  TO  13 

OA 

96 

V«!*Mtfl*X«tl 

OA 

55 

|l«L0«|-M 

DA 

96 

00  12  T*l«.LO 

OA 

97 

i<i>*x<n»x«i 

OA 

98 

OA 

99 

7 1 1 > »2  « 1 ) 1 

OA 

100 

12 

R|||)»U<II'N| 

OA 

101 

13 

POINT  ? 7.  X«1 

DA 

102 

GO  TO  ? 

OA 

103 

C 

DA 

106 

C 

MOVE  STRUCTURE  0«  REPROOUCE  ORIGINAL  STRUCTURE  In  n£«  POSITIONS. 

OA 

105 

c 

OA 

106 

14 

POINT  ?8.  I TG.NS.XWl . VMl «ZMl .X«2. YU2.7v2.RAO 

OA 

107 

XW1*XM)*TA 

OA 

108 

ymi*y«i*ta 

OA 

109 

7Wl*ZW|*TA 

DA 

110 

call  MOVE  ( x v 1 » Yw  l • Z • 1 •*•(?*  VM2./M2*  InT  ( R AD  « .6 ) » nS  • I T G > 

OA 

111 

GO  TO  ■> 

OA 

112 

15 

fMser,NO(  f ro.NS) 

DA 

113 

OA 

115 

IF  <|I.E0.2)  GO  TO  16 

OA 

ns 

icoNiin*! 

OA 

116 

GO  to  > 

OA 

117 

16 

IC0N2( 1 1*1 

OA 

lie 

GO  TO  7 

DA 

119 

C 

OA 

120 

C 

TERMINATE  STRUCTURE  GFOME  TOY  INPUT. 

DA 

121 

C 

OA 

122 

IT 

IF  IN.FO.O)  GO  TO  16 

OA 

123 

CALL  CONECT  1 1 TGI 

OA 

126 

call  convot 

OA 

1 25 

10 

IF  <N«**.GT .LOl  GO  TO  ?0 

OA 

126 

BE  TU»S 

OA 

127 

19 

PPINT  ?9 

OA 

128 

POINT  10*  GM«ITG.NS.Xwl.YWl*Zul,Xw2.VW2.2w2.RAD 

OA 

129 

STOP 

OA 

130 

20 

PPINT  M 

OA 

131 

STOP 

OA 

132 

C 

OA 

133 

21 

FORMAT  I////.33X.3SH-  - - STPUCTUPE  SPEC  IF ICAT ION  - - -.//.37X.20M 

OA 

134 

ICOOPOtNATES  MUST  BE  INPUT  IN*/.  37x.29*METERS  OP  0F  SCAlEO  TO  HCTEP 

OA 

135 

2S./*3T<*31hBEF0PE  STRuCTURF  INPUT  IS  EN0E0.//1 

OA 

136 

22 

FOONAT  t2X.4HVlRE.79X.6MN0.  OF  ,6X  *5HF  IRST  *?X  *4HL  AST  *5X  . 3HT  AG./.2X  • 

OA 

137 

I3hNO..«M.2mX1,9K.2HYI,9X.2hZ1.I0X.26X2.9X.2mY2.9X,2HZ2.6X.6M9AOIUS 

OA 

138 

2. 3X .4hsFG. *5X .6HSF0. . 3X .4MSEG. » SX . 3hNO. 1 

OA 

139 

23 

FOPMAT  t A2. 13* I5.TF10.5) 

OA 

160 

2* 

FORMAT  MX«IS*3F11.S«1X*AF11.5*PX.IS*AX*1S*1X*IS*1X*IS) 

OA 

141 

25 

FORMAT  I6X.34HSTPUCTURE  REFLECTED  ALONG  THE  AXES * 3 ( 1 X ♦ A 1 > *22*.  TA 

OA 

142 

1GS  INCREMENTED  BY. IS) 

OA 

143 

26 

FOPMAT  I6X.30HSTPUCTURE  ROTATED  ABOUT  Z-AX I S* I 3* 30H  TIMES.  LARLES 

OA 

144 

J 

1 INCOFMFNTEO  BY* IS) 

OA 

145 

27 

FOPMAT  I6X.26HSTPUCTUOE  SCALED  BY  FACTOR. F 1 0.5) 

OA 

146 

20 

FORMAT  (6X.49MTME  STRUCTURE  MA<;  BEES  MOVEO.  MOVE  DATA  CAPO  IS  -/6A 

OA 

147 

1. 13*15. 7F10.S) 

OA 

148 

29 

FORMAT  (2Sh  GEOMETRY  OATA  CAPO  ERROR ) 

OA 

169 

30 

FORMAT  (1X.A2.I3.IS.7F10.S) 

OA 

150 

31 

FORMAT  (69h  NUMBER  OF  «IRE  SEGMENTS  ANO  SURFACE  PATCHES  EXCEEDS  01 

OA 

151 

1MENSI0N  LIMIT.) 

OA 

152 

32 

FORMAT  (1X.IS«1HP.F10.S.2Eii.5.1X.2F11.5.11X.F1i.s> 

OA 

153 

33 

FORMAT  (6X.29MLAST  SURFACE  PATCH  REPROOUCEO. 13* 36m  TIMES  IN  X 0I«E 

OA 

154 

1CTI0N  PITH  INCREMENT »Fli.6./»3?Y. 3hAnO* 1 3*  36H  TIMES  IN  Y DIRECTION 

OA 

155 

2 MITH  INCREMENT. FU. 6) 

OA 

156 

END 

DA 

157 

FUNCTION  0010  (X) 

08 

1 

C 

08 

2 

c 

FUNCTION  OB—  RETURNS  OB  F0R  MAGNITUOE  IFIELOl  OP  MAG*#2  (POWER)  I 

00 

3 

c 

08 

4 

F*  1 0 • 

D8 

5 

GO  TO  1 

OB 

6 

ENTRY  OB20 

00 

7 

F *20  . 

08 

8 

1 

IF  IX.LT.l.E-20)  GO  TO  2 

08 

9 

O01O*F*ALOG1O<XI 

00 

10 

RETURN 

00 

11 

2 

OBlO*-999.99 

DB 

12 

RETURN 

08 

13 

END 

DB 

14 

SUBROUTINE  EFlO  <b.s.rh.zp. i j.ezrs.ez is.eprs.eris.ezrc.ez ic.erpc.e 

EF 

1 

1PIC.E7RM.EZIM.EPRX.ERIK) 

EF 

2 

C 

EF 

3 

C 

EFLO  RFTIRNS  ELECTRIC  FIELD  OF  A SEGMENT  In  RHO  AnD  Z COMPONENTS 

EF 

4 

C 

tCYLN.  COORD.  CENTERED  ON  SOURC.F  SEGMENT)  FOR  CONSTANT.  SINE.  ANO 

EF 

5 

C 

COSINE  CURRENT  DlSTRI»UT IONS  ON  THE  SEGMENT. 

EF 

6 

C 

EF 

7 

COMMON  /TMI / 7PK.RKB2.IJX 

EF 

8 

OATA  77.TP/IBB.36163S.6.2B310S3O0/ 

EF 

9 

!JX*IJ 

EF 

10 

PHK*RH*TP 

EF 

11 

JPKtJP.TP 

FF 

12 

RKsB*TP 

EF 

13 

PKP2*PhK*PHK  «bk*Bk 

FF 

14 
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B*H«SQBT <RkB2> 

if 

19 

CO  INC •©»*«/«« 8 

if 

16 

SkT*TP«S*0.5 

if 

17 

zn?-?p«-SKT 

ff 

16 

zoi-zpk.skt 

if 

19 

B2*«i«BK87*ZD2*202 

if 

20 

H<**»St}OT  <b/kS> 

if 

21 

«|kS»PkAZ*Z0I»Z01 

if 

22 

wi«  »SQwt (H1KS> 

if 

23 

SP?*SlN(fi?»c|/«?K«7Z 

if 

24 

CP?*COS 

ff 

29 

«zz 

if 

26 

CR1*C0S<R1k»/B1«*77 

ff 

27 

$P?0*$0 2/B?* 

if 

28 

S02RR«SR2/R2KS 

if 

29 

CB/Baro?/©?* 

if 

30 

CP?«B«rH2/» ?«s 

ff 

31 

S»lB«Sfil/PiH 

if 

32 

SB)BR«SR1/RIKS 

if 

33 

CRlP*CPl /Bl* 

if 

34 

CB1PR»CPI/B|KS 

if 

39 

CSTaCOS (S*T) 

if 

36 

SST»Sl^(S«TI 

ff 

37 

T l * (Cw?0-SM2R»lt*7O2 

if 

38 

rz«<Coi0-«;pi0Oi«7yi 

ff 

39 

T 3* <SP?R*CB7P»»  «Z0? 

ff 

40 

?4«  »SP|B*CP10B) »Z01 

if 

41 

T l S*T l «SST 

if 

42 

T2S*-T?«SST 

if 

43 

TJS*M«SST 

if 

44 

T4S*-T4»SST 

a 

45 

C7BS«JSM?-SWl  ) *CST*US-T?S 

if 

46 

f 7 JS«  (C»2-C»l  > *CST-T3S*T4S 

if 

47 

EBBS«-<  «SB2«Z02-SPl*Z0l>*CST*  <SR2*SRI>*SST*T1S*Z0?-T2S*Z011/RK§*C0 

if 

46 

l Inc 

if 

49 

€Br* i*-f  <CP2*7D2-C01»ZOl >*CST*ICP2*CR1 >*SST-T3S*ZD2aT4S*7Dl>/R«B*C0 

ff 

50 

l INC 

if 

51 

TlS«Tl*CST 

a 

52 

T2S»r?*CST 

if 

53 

T3S«T3«CST 

if 

54 

T4S*T4*CST 

a 

55 

f 2BC*  C - 1 SR<?  • SB  l ) *SST  ♦TIS-T2SI 

if 

56 

C7IC*<-  <CR2*CB1»*SST-T3$*T<*S) 

if 

57 

EBBC"-t- ISB2*?D2«SR 1*701 )*SST«(SR2-SR1)*CST»I1S*ZD2-T2S*ZD1>/RKB*C 

if 

58 

10INC 

if 

59 

fB IC*- <-<CR2*7D2*CP 1*701 )*SSlMCR2-CRl>*CST-13$*Zn2nT4S*Z01l/RK§*C 

if 

60 

10  INC 

if 

61 

(PPK>BkB» (CR2P-SR2RR-CRIR»SR1RB) *COINC 

ff 

62 

CBIK»-pKB* (SR?R*CR2RR-SR1R-CRIRP)*C0|NC 

if 

63 

CALL  INTK  t-SKT*SKT.BK*lJ*ClNT.SlNT) 

if 

64 

EZPK»-7Z*SINT*T1-T2 

if 

65 

EZIK*-27*CINT-T3*T4 

if 

66 

RETURN 

if 

67 

End 

if 

68- 

COUPLE  * FUNCTION  fFUHl2») 

EU 

1 

C 

EU 

2 

C 

EFUN<?>«SQRHPI)*Z*EXP<2*Z>*<l.-ERFm).  ERFIZI  IS  THE  ERROR 

EU 

3 

C 

PUNCH  ON. 

EU 

4 

C 

EU 

5 

COUPLE*  7 • ZS .SUM . PON*  TERM » ZX 

EU 

6 

OAT*  T05P/ l. 1283791 7/, ACCS/ l.E-1 6/. SP/ 1.77245385/ 

EU 

7 

z«zx 

EU 

8 

If  (CAPSIZXI .GT.3.)  GO  TO  3 

EU 

9 

C 

EU 

10 

C 

SERIES  EXPANSION 

EU 

11 

C 

EU 

12 

zs*z*z 

EU 

13 

S'JM*Z 

EU 

14 

P0W»7 

EU 

15 

DO  1 1=1.100 

EU 

16 

r i * i ./i 

EU 

17 

POW»-Pn**Zs*F I 

EU 

16 

FI«l./i2*MM.) 

EU 

19 

TFBM»pnw*r i 

EU 

20 

SUM*SUB»TEPN 

EU 

21 

TH«.»RE*L  ITERN*CONJG(TFRN>  ) 

EU 

22 

SNS»PFAL (SUN*CONJG«SUM>  » 

EU 

23 

IF  ( T»K/SMS.LT.ACCS>  GO  TO  2 

EU 

24 

1 

CONTtNUE 

EU 

25 

PRINT  fl«  ZX 

EU 

26 

2 

cfunmi  .-suMMosP>*z*rExp(?$)*sp 

EU 

27 

RETURN 

EU 

28 

C 

EU 

29 

C 

ASYMPTOTIC  EXPANSION 

EU 

30 

c 

EU 

31 

3 

IF  <RCAL<Z> .GF.O.I  GO  TO  4 

EU 

32 

MINUS-1 

EU 

33 

?*-ZX 

EU 

34 

GO  TO  S 

EU 

35 

4 

M!Nut«0 

EU 

36 

9 

7S*.5/ ( Z*ZI 

EU 

37 

RATL • 1 ,E  *9 

EU 

38 

SUM* 11 ,.0.| 

EU 

39 

TERM* ( 1 . • 0 . ) 

EU 

40 

00  6 1*1.100 

EU 

41 

TERM*-TERM»I2.«|-1 ,)*7S 

EU 

42 

138 


I 


TMS*RF.AL  (TERM*CONJG(TERM)  > 

EU 

A3 

SMSaRf AL  (SUM*CONJG(SUV)  | 

EO 

4* 

rat-tms/s*s 

e«i 

AS 

IF  (HAT.GT.RATL)  GO  TO  7 

EU 

A6 

SUM*SUM.TERN 

EU 

A? 

qatl-bat 

EU 

48 

IF  (RAT. LT. ACCS)  GO  To  7 

EU 

49 

6 

CONTINUE 

EU 

SO 

PRINT  «,  in 

EU 

SI 

7 

IF  (MjNUS.EO.n  SUM*5UM-2.*SP*/*e£xPTZ*Z> 

EU 

S 2 

EFUN*SlJM 

EU 

S3 

RETURN 

EU 

SA 

C 

EU 

SS 

8 

F OOM A T nan  SFRIES  DID  NOT  CONVERGE  IN  EfUN.  ARGa,2E13.5) 

EU 

S6 

ENO 

EU 

57- 

logic ai  function  enF(njnit) 

EN 

l 

C 

EN 

2 

C 

function  enf  checks  for  eno  of  file 

EN 

3 

c 

EN 

A 

IF (EOF (NUNIT) » ?*| 

EN 

s 

I 

ENF*. FALSE. 

EN 

6 

Rf TURN 

EN 

7 

? 

ENF*  • Tuij£  . 

EN 

8 

RETURN 

EN 

9 

ENO 

EN 

10- 

SUBROUTINE  CT*nS  (P I «P2  tPl.PA  *P5  *P6 • I PR  # I SAnT • VSAnT .NS ANT  *F 1 

ET 

1 

C 

ET 

2 

c 

ETNNS  FILLS  TnE  ARRAY  E MlTM  Tmf  NEGATIVE 

OF  THE 

FLECTRIC  ficlo 

ET 

3 

C 

INCfOfNT  ON  MIRES  ANO  Th€  TANGFNUAL  MAGNETIC  FIC(.0  (N  X *1  ON 

ET 

A 

c 

supfacfs.  c is  ihf  R|6ht  hand  sine  of  Tue 

MATRIX 

EQUATION. 

ET 

5 

c 

ET 

6 

•Z(IOOO) «SI (1000) *B! (100 

ET 

7 

10) • ALP  1 1000) • RET ( 1000) • ICONl ( 1000) . 1C0N2 ( 1 000 ) * I T AG ( 1000 > *ML AM* IPS 

ET 

8 

FT* 

ET 

9 

COMMON  /ANGL/  SALP(IOOO) 

ET 

10 

DIMENSION  CAB ( 1 ) • SAB(l) 

ET 

11 

DIMENSION  T 1 A ( 1 ) * T1 Y ( 1 ) « T)2(l).  T 2X(1>* 

T2Y(1). 

722(1) 

ET 

12 

DIMENSION  E ( 1500)  ♦ VSANTUO)*  ISANT(IO) 

ET 

13 

equivalence  (cap(  n .ai.p(  i ) » . <«ab(  1 ) «bet  ( i n 

ET 

14 

EQUIVALENCE  ( T l X *5 1 ) • (T1Y.ALP).  (T 1 Z*BET ) 

• (T2X. 

ICONl).  (T2Y.ICON 

ET 

15 

12)*  ( T?Z» I T AG) 

ET 

16 

COMPLE*  E.CX*CY#C7tVSANT.n.T2,FR,ET*E2H.ERN 

ET 

17 

DATA  TP/N.2831SS3/. RET A/0. 0026SAA/ 

ET 

16 

NEO*N*M*«* 

ET 

19 

IF  (IPR.GT.O)  GO  TO  3 

ET 

20 

c 

ET 

21 

c 

APPLIED  flCLO  OF  VOLliOE  SOURCES  FOB  transmitting 

CASE 

ET 

22 

c 

ET 

23 

00  1 I * l «NEO 

ET 

24 

1 

E(|)*(0..0.) 

ET 

25 

00  2 I * I .NSANT 

ET 

26 

I$«I$AnT(I> 

ET 

27 

? 

E(IS)*-VSANT( D/ISI (l5)*MLAM) 

ET 

28 

RETURN 

ET 

»9 

3 

IF  (IPR.GT.3)  GO  TO  ll 

ET 

> 

c 

ET 

-1 

c 

INCIOENT  plane  mave.  LINEARLY  POLARIZED. 

ET 

32 

c 

ELECTRIC  FIELD  ON  MlPFS 

ET 

33 

c 

ET 

34 

CTm*COS(P1 ) 

ET 

35 

STh«SIN(P1) 

ET 

36 

CPHbCOS (P2) 

ET 

37 

SPM«SIN(P2) 

ET 

38 

CEY*COS(P3> 

ET 

39 

SCT*S!N(P3> 

ET 

40 

PX*CTh«CPM«CET-SPh*SET 

ET 

61 

PY*CTh*SPM*CFT*CPM*SCT 

ET 

42 

PZ«-STM«CET 

ET 

43 

MX.-STHACPM 

ET 

44 

MY*-SYm*SPH 

ET 

45 

MZ*-CTm 

ET 

46 

OXaMY*PZ-«?«PY 

ET 

47 

OV«MZ»OX-KX*P? 

ET 

48 

Q7atfXaPV-MY«PX 

ET 

49 

IF  (JPo.GT.l)  GO  TO  7 

ET 

50 

IF  IN.FQ.0I  GO  TO  5 

ET 

51 

00  A I * 1 «N 

ET 

52 

ARG«-TP#  <MX#X  (I)*WY#YfI>*wZ#Z<II) 

ET 

53 

A 

E ( I ) ■■  I P A*CAB  (I)*PY*5aB(I>*PZ*SALP(I)  lACNPLOCOSl 

ARG).SIN(ARG)) 

ET 

54 

5 

IF  IM.FD.O)  RETURN 

ET 

55 

c 

MAGNETIC  FIELD  ON  SURFACES 

ET 

56 

I*LD*1 

ET 

57 

IlaN-1 

ET 

58 

00  6 IS*  1 .M 

ET 

59 

1*1-1 

ET 

60 

11*11*2 

ET 

61 

12*11*1 

ET 

62 

ARG«-TPA(WX«X(I)  *YV«Tm»IZ»Hl)  > 

ET 

63 

Tl*CMPLX(COSIARG)  .SIN(APG)  )»SALPM)»RETA 

ET 

64 

E CI2)*(QX*T1X( I) *OY*T 1 Y ( I) ♦0Z*T1 Z ( I) > • T 1 

ET 

65 

6 

E II1)*(QX*T2X(I)  *OY«T?YII)  *(IZ«T?ZU>  )*T1 

ET 

66 

RETURN 

ET 

67 

c 

FT 

68 

1 


c 

INC IOEnT  Pl  ANE  MAVF.  ELLIPTIC  POLARIZATION. 

ET 

69 

c 

ELECTRIC  FIELD  ON  *I«FS 

ET 

70 

c 

ET 

71 

7 

T|»-<0.*1.)«P6 

ET 

72 

IF  MPH.FQ.3i  T 1 ■- T 1 

ET 

73 

IF  (N.F  Q. 0 ) GO  TO  9 

ET 

74 

Cl*PI*T|*OX 

ET 

75 

Cy*py*ti*ov 

ET 

76 

CZ*P7*M«QZ 

ET 

77 

00  § I * 1 # N 

ET 

78 

A«r.»-To»  («I*I  (I ) ♦KY«r  < I » •«z*z  MM 

ET 

79 

8 

F M ) *-(CX*CA8  M ) ♦CY*SABM) *CZ»SALP( I ) )«CMPl« (COS(ARG) tSlNCARG) ) 

ET 

eo 

9 

IF  (M.FQ.Ol  RETURN 

ET 

81 

c 

MAGNETIC  FIELD  ON  SURFACES 

ET 

82 

CXaOX-T 1*P* 

ET 

83 

CY*QY-T1*PV 

ET 

84 

C7*07-T1*P7 

ET 

85 

I«LO*l 

ET 

86 

I1*N-1 

ET 

87 

00  10  IS*1.M 

ET 

88 

1*1-1 

ET 

89 

11*11*? 

ET 

90 

12*11*1 

ET 

91 

MG«-To» («*•* ( I J ♦«Y*Y ( 1 > »<Z*Z (1)1 

ET 

92 

T2*CMP|.  XCCOSCARG)  *S IN < ARG) > *SAi P <1 ) *RE T A 

ET 

93 

EM?>«<CXM1*M1  *CV*T|YMI  *CZ*T 1 Z M ) > *T2 

ET 

94 

10 

EUll*<CX*T2XM)  *CYM?YU>*CZ*T?ZM>)M2 

FT 

95 

RETURN 

ET 

96 

c 

ET 

97 

c 

incident  field  of  an  elementary  current  source. 

ET 

98 

c 

FT 

99 

11 

MZ*C05<P4> 

ET 

100 

WX«tfZ*C0S(P5> 

ET 

101 

Mt*MZ*SlNIP5) 

ET 

102 

MZ*SIN(P4> 

ET 

103 

DS*P6*59.958 

ET 

104 

0SM*P6/(2.*TP) 

ET 

105 

npm*n*m 

ET 

106 

is*lo*i 

ET 

107 

I1*N-1 

FT 

108 

00  16  1*1. NPM 

FT 

109 

11*1 

FT 

110 

IF  M.tE.N)  GO  TO  12 

FT 

111 

IS*IS-1 

FT 

112 

I I*IS 

ET 

113 

11*11*? 

ET 

116 

12*11*1 

ET 

115 

12 

PX*XMI)-P1 

ET 

116 

PY*VMII-P2 

ET 

117 

PZ*ZMI»-P3 

ET 

116 

RS*PX*PX*PY«PY*PZ*PZ 

ET 

119 

IF  (RS.LT.1.E-30I  GO  TO  16 

FT 

120 

R*SQRT(RS) 

FT 

121 

PX*PX/0 

ET 

122 

PVapy/P 

ET 

123 

PZ*PZ/R 

ET 

124 

CTH*PX*MX«PV*UY»PZ*«Z 

ET 

125 

STM-SORT  Cl .-CTM*CTM» 

ET 

126 

QX«PX*«X#CTH 

ET 

127 

qy*py-«y*cth 

ET 

128 

QZ*PZ-%Z*CTM 

ET 

129 

ARG*S0OT (OX#OX*OY*OY*OZ#QZ) 

ET 

130 

IF  CARQ.lT. l.E-30>  GO  TO  13 

ET 

131 

QX*QX/ARG 

ET 

132 

QYbQY/ARG 

ET 

133 

OZ-OZ/APG 

ET 

134 

GO  TO  14 

FT 

135 

13 

0X*1. 

ET 

136 

0V*0. 

ET 

137 

QZ*0. 

ET 

138 

1* 

ARG*-TP*0 

ET 

139 

Tl.CMPLX <C0SCARG» .SIN(ARG) 1 

ET 

140 

IF  M.GT.N)  GO  TO  is 

ET 

141 

c 

ELECTRIC  FICLO  ON  mires 

ET 

142 

T2*CHPLXM.#-1./«R*TPM/RS 

ET 

143 

ER*0S*T1*T2*CTm 

ET 

144 

ET*.5*DS#T 1 • C (0.*1.)#TP/R*T2I*STM 

FT 

145 

EZH*ER*CTM-ET*STM 

ET 

146 

ERM*ER«STH*ET*CTH 

ET 

147 

CX.EZM*MX*ERM*OX 

ET 

148 

CV«E2H*wr*ERM*0Y 

ET 

149 

CZ*EZH*nZ*FRM*0Z 

ET 

150 

CM)  •-  (CX*CAB  < I ) *CY*SAB  < I » *CZ*SALP  MM 

ET 

151 

GO  TO  16 

ET 

152 

c 

MAGNETIC  FICLO  ON  SURFACES 

ET 

153 

15 

PX*MY*QZ-MZ«OY 

ET 

154 

PV*MZ*QX-MX«07 

ET 

155 

PZ*MX*OV-MV*OX 

ET 

156 

T2*0SH*T1*CMPLX  < 1 ./R.TP)/R*STm»SAlP< 1 1 » 

ET 

157 

CX*T2*PX 

ET 

158 

CV*T2*dy 

ET 

159 

CZ*T2*p? 

ET 

160 

EM2»*CX*TlXCII)*CV*TlYMI)*CZ*TlZMn 

ET 

161 

EM1»«CX*T2X(II)*CV*T?YMI)*CZ*T2Z<II> 

FT 

162 

16 

CONTINUE 

ET 

163 

RETURN 

ET 

164 

END 

ET 

165- 
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SUBROUTINE  FACIO  < 4 .NWOW • NCOL . I P > 

FO 

1 

c 

FO 

2 

c 

F AC  10  CONTROLS  I/O  FOw  OUT-OF-CO»E  FACTORIZATION. 

FO 

3 

c 

FO 

A 

COMMON  /MATPAO/  1 C A S£ , NML 0* S • NPHL* . NL AST . NBLStM.NPStM 

.NLSTM 

FO 

s 

COMMON  /RFSTRT/  I C 1 . 1 C? * I C 1 .NRF S . NPBE S . 1«LC* . 1 DUMP , TMOUM .E * T |M 

FO 

6 

C0MPLF4  A 

FO 

7 

DIMENSION  AINUOW.NCOL ) « 1P<NW0«) 

FO 

0 

|T*2*NPRLK*NR0W 

FO 

9 

11-1 

FO 

10 

l?«|T 

FO 

11 

13*12*1 

FO 

1? 

I4*2»|T 

FO 

13 

REMIND  12 

FO 

IA 

REwINO  13 

FO 

IS 

R£  • I NO  Ia 

FO 

16 

T |M£  *0. 

FO 

17 

IF  UC3.CO.-ll  GO  TO  -4 

FO 

18 

IF  UC3.EQ.0)  GO  TO  1 

FO 

19 

CALL  RlC«TN  ( |1  ill I2»nHL0*S*99«) 

FO 

20 

CALL  BLCKIN  (l?.l,l2.fC3«?) 

FO 

21 

I*BLK1«IC3 

FO 

22 

GO  TO  c 

FO 

23 

I 

CONTINUE 

FO 

?A 

c 

FO 

?S 

c 

BUFFER  IN  BLOCK  1 ANO  RL0C«2  FROM  T AP£.  1 

FO 

26 

c 

FO 

27 

CALL  BlC*IN  ( 1 1 • 1 1 • 12. 1 . 1 7) 

FO 

20 

CALL  BlC*lN  ( 1 1 « I 1 « 1 *• . 1 * 1 B ) 

FO 

29 

CALL  SFCONO  IT|I 

FO 

30 

CALL  LFACTR  (A»NR0«MNC0L»lt2#|Pl 

FO 

31 

CALL  SECOND  <T2) 

FO 

32 

TIMC*T|M£. (T2-T1) 

FO 

33 

c 

FO 

34 

c 

BUFFER  OUT  BLOCK!  TO  T APE 2 IBLOCKl  FACT0RE01 

FO 

35 

c 

FO 

36 

call  BLCKOT  1 12*  11,12,1.3) 

FO 

37 

IF  (NBLOFS.LT .3)  GO  T*  3 

FO 

38 

c 

FO 

39 

c 

BUFFER  OUT  BLOCK?  TO  F IlE3 

FO 

AO 

c 

FO 

41 

CALL  BLCKOT  U3.I3.IA.  1 ,20) 

FO 

42 

00  2 I<BL*2*3.NBL0*S 

FO 

43 

c 

FO 

44 

c 

BUFFER  IN  BL0CK2  FROM  T APE  1 

FO 

AS 

c 

FO 

A6 

CALL  BLC*IN  U1.I3.Ia, 1.21) 

FO 

47 

CALL  SFCONO  (Tl) 

FO 

46 

CALL  LFACTP  (A.NR0A.NC0L.1.IABL«2*1P) 

FO 

49 

call  SECOND  (T?) 

FO 

SO 

TIME*TIME*(T2-T1) 

FO 

SI 

c 

FO 

S2 

c 

BUFFER  OUT  BLOCK?  TO  FILE  3 

FO 

S3 

c 

FO 

SA 

CALL  BLCKOT  U3.I3.1A.1.2?) 

FO 

S5 

2 

CONTINUE 

FO 

56 

GO  TO 

FO 

57 

3 

CONTINUE 

FO 

58 

CALL  BLCKOT  <12. 13. IA, 1 .23) 

FO 

59 

PRINT  10.  TIME 

FO 

60 

REWIND  12 

FO 

61 

REWIND  13 

FO 

62 

REWIND  1A 

FO 

63 

GO  TO  7 

FO 

64 

4» 

I XRLK 1*1 

FO 

65 

5 

IXBLK1.  IX0LK1U 

FO 

66 

IC3* I XRLK 1-1 

FO 

67 

CALL  ChkPRT 

FO 

60 

I XBLF2* IXBLK 1*1 

FO 

69 

c 

FO 

70 

c 

WITH  ThE  EXCEPTION  OF  THE  FIRST  PASS.  IFILE3  BECOMES 

IFILEA  ANO 

FO 

71 

c 

VISA  VERSA. 

FO 

72 

c 

FO 

73 

IFILE3UA 

FO 

74 

IFILEa*13 

FO 

75 

IF  (2«( IXBLKl/2) .NE.IxRLKl ) GO  TO  A 

FO 

76 

IF  ILE3* 1 3 

FO 

77 

ieilea.ia 

FO 

70 

6 

REWINO  IFILE3 

FO 

79 

REwINO  IFILEA 

FO 

BO 

C 

FO 

81 

C 

BUFFER  IN  RLOCKI  ANO  BLOCK?  FROM  IFILE3 

FO 

0? 

C 

FO 

03 

CALL  BLCKIN  UFILE3. 11.12. 1.2a) 

FO 

04 

CALL  BLCKIN  IIFILE3. I 3. IA, 1 .25) 

FO 

85 

CALL  SFCONO  (Tl) 

FO 

86 

CALL  LFACTP  ( A .NROw.NCOL • I XBLK 1 , I XBLK2. IP ) 

FO 

07 

CALL  SfCONO  <T2) 

FO 

00 

TIME*TTME*(T2-T1) 

FO 

09 

C 

FO 

90 

C 

BUFFER  OUT  BLOCK  1 TO  TAPE?  (BLOCK  1 FACTOREO) 

FO 

91 

c 

FO 

92 

CALL  Bl  CKOT  <12.11.12,1,261 

FO 

93 

c 

FO 

94 

c 

BUFFER  OUT  BLOCK?  TO  IFILEa 

FO 

95 

c 

FO 

96 

CALL  BI.CKOT  ( IF  ILF4  ♦ I 3.  I A . 1 ,27 ) 

FO 

97 

IF  ( IXRI.K2.NE.NPL0KS)  GO  TO  9 

FO 

96 
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c 

F0 

99 

c 

a uffer  our  slock?  to  iapiz  iblockj  factored— factdruat ion 

FO 

100 

c 

FIN|ShF01 

FO 

101 

c 

FO 

102 

CALL  BlCKOT  U2.I3.16.1.2*} 

FO 

103 

PRINT  10*  TIRE 

FO 

10A 

REMIND  1? 

FO 

105 

REMIND  13 

FO 

106 

remind  1* 

FO 

107 

7 

continue 

FO 

106 

IC  3*0 

FO 

109 

0 

RETURN 

FO 

110 

9 

!*8LK?.U8LK2*1 

FO 

111 

IF  (Ixblk?.OT.NRLOkS)  GO  TO  5 

FO 

112 

c 

FO 

113 

c 

BUFFER  IN  BLOC*?  FBOM  IFILE3 

FO 

I1A 

c 

FO 

115 

CALL  RLCKIN  ( IF ILE  3* I !• I* • 1 «29) 

FO 

116 

call  SECOND  IT!) 

FO 

11? 

CALL  LFACTR  (*»NROw«NCOLtlxBLKl.UBLK?«IP) 

FO 

116 

call  SECOND  (T?> 

FO 

119 

TI-E*TT**E*02-T1» 

FO 

120 

c 

FO 

121 

c 

BUFFER  OUT  BLOC* 2 TO  FILE6 

FO 

122 

c 

FO 

123 

CALL  BLCKOT  1 IF  ILEA* I 3* I A • 1 1 30 ) 

FO 

126 

GO  TO  R 

FO 

125 

c 

FO 

126 

10 

FORMAT  I3SH  CP  TINE  TAKEN  FOR  FACTOR I?AT ION  • «E 12.51 

FO 

127 

END 

FO 

128- 

SUBROUTINE  FACTR  <N. A. IP.NOIN) 

EA 

1 

C 

EA 

2 

C 

SUBROUTINE  TO  FACTOR  A MATRIX  INTO  A UNIT  LO«ER  Tol ANGULAR  MATRIX 

EA 

3 

C 

ANO  AN  UPPER  TRIANGULAR  MATRIX  "SING  THE  GAUSS-00OL I T TLE 

algorithm 

EA 

A 

C 

PRESCNTEO  ON  PAGES  All-916  OF  A.  RALSTON— A FIRST  COURSE 

IN 

EA 

5 

c 

numerical  analysis,  comments  rflom  refer  to  COMMENTS  in 

RALSTONS 

EA 

6 

c 

TEXT.  TMATRI X TRANSPOSED. 

EA 

7 

c 

EA 

8 

01 MENS  ION  A(N0IM«N0IM»«  IP(NDItf) 

EA 

9 

COMMON  /SCRATM/  0<l500> 

FA 

10 

COMPLEX  A.O.ARJ 

FA 

11 

INTEGER  R*RMl*RPi.PJ*PR 

FA 

12 

!FLG«0 

FA 

13 

DO  9 R* I . N 

FA 

14 

c 

FA 

15 

c 

STEP  1 

FA 

16 

c 

FA 

17 

DO  1 K*1.N 

FA 

18 

0<K1*A(R.KI 

FA 

19 

1 

CONTINUE 

FA 

20 

c 

FA 

21 

c 

STEPS  ? ANO  3 

FA 

22 

c 

FA 

23 

Rtf l*R-l 

FA 

26 

IE  IRM1.LT. 11  GO  TO  A 

FA 

25 

00  3 J*|*RM| 

FA 

26 

PJ*IP< J) 

FA 

27 

ARJ*0(PJ1 

FA 

28 

A (Rt J) *AR J 

FA 

29 

0(PJ)*0U) 

FA 

30 

JPl«J*l 

FA 

31 

00  2 I = JP 1 »N 

FA 

32 

D(I)*0(  I)-A(J,n*ARj 

FA 

33 

2 

CONTINUE 

FA 

36 

3 

CONTINUE 

FA 

35 

6 

CONTINUE 

FA 

36 

c 

FA 

37 

c 

STEP  A 

FA 

38 

c 

FA 

39 

OMAX*RE AL <0 <R) *C0NJG (D IR) 1 ) 

FA 

60 

f P ( R 1 *R 

FA 

61 

RP1*R«1 

FA 

62 

IE  <RP1.GT.NI  60  TO  6 

FA 

63 

00  S I *0P1 «N 

FA 

66 

FLMAG*PEAL(O(I)*CONUG(0(II 1 1 

FA 

65 

IE  (ELMAG.LT.DMAX1  GO  TO  S 

FA 

66 

Omax«elmag 

FA 

67 

IP IR) *1 

FA 

66 

5 

CONTINUE 

FA 

69 

6 

CONTINUE 

FA 

50 

IF  (OMAX.LT.l.E-10)  IFLG*1 

FA 

51 

PR* IP (R) 

FA 

52 

A<R.R)*0<PR> 

FA 

53 

DIPR) *0 (R) 

FA 

56 

C 

FA 

55 

C 

STEP  5 

FA 

*56 

C 

FA 

57 

IF  <RPi.G7.Nl  GO  70  6 

FA 

56 

ARJ«1./A(R.R1 

FA 

59 

00  7 I«RPI*N 

FA 

60 

A(R,I1«0(II«ARJ 

FA 

61 

7 

CONTINUE 

FA 

62 

6 

CONTINUE 

FA 

63 

IE  uelg.eo.oi  GO  TO  9 

FA 

66 

PRINT  10*  R.DMAX 

FA 

65 

ielg«o 

FA 

66 
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SUPMOOTJNf  FArTWS  <NP.NOP»4. [P, lX,NttOM.NCOL*NCOLS. IPSY*| 

FS 

1 

c 

FS 

? 

c 

FACTBS.  FOP  S*MMtTPlC  sTw  ifTiiwt  . TwAn^FOWmS  SuBmATP  IC  If 5 TO  FORM 

FS 

3 

c 

MATBlflFS  OF  T«f.  5YMM*TBIC  HOOF «,  ANC  CALL*-  POUT  INF  TO  FACTOR 

FS 

6 

c 

MATPfCTFS.  f F NO  1*f  BOUT  iNf  I S CALLtO  TO  FACTOR  THE 

FS 

S 

c 

rOMPlFTF  MATRl*. 

FS 

6 

c 

FS 

7 

COMMON  /BfSTPT/  T^l # If?,lC J.NWFStNPOfS. IrtLCK. IOUMP* TM0UM*E*T 1M 

rs 

8 

COMMON  /MA 7 PAP/  I<  ASf  ,N»?L  0*  S'NF'Pl*  »M  AST  .N«l  STM, »kp<;»H.NL  S7M 

FS 

9 

COMMON  /SMAT/  S ( 1 0 • 1 0 ) 

FS 

10 

COMMON  /SCPATm/  Dl 15001 

FS 

1 1 

0 T Mf  NS  T ON  A (NPO«»NfOL  ) • IP(NW')M).  |UN#Ol| 

rs 

12 

COMclF’  • A.O.DFTFP.^ 

rs 

13 

IF  TICASE.LT. 3)  GO  TO  1 

rs 

16 

RfMlNO  1? 

FS 

IS 

BEmINO  13 

FS 

16 

PE  Ml  NO  1 U 

FS 

17 

BE  Ml  NO  15 

FS 

18 

BE  Ml  NO  IN 

FS 

19 

1 

IF  (NOP.EO.l)  GO  TO  U 

FS 

20 

IF  ( IPSVM.GT.O)  GO  TO  3 

FS 

21 

c 

FS 

22 

c 

SET  UP  5 MATPJX  TOW  POTATIONAl  SYMMf  TRY  • 

FS 

23 

c 

FS 

2M 

PMA7afe.?831«S3072/NOP 

FS 

25 

00  2 Ir2.N0P 

FS 

26 

00  2 •=!. NOP 

FS 

27 

APG  = Pma /*FlOAT ( I - 1 > »F LOA T ( J- 1 ) 

FS 

28 

ST  I . J) sCMPLX <COS<ABG) .SIN(ABG) ) 

FS 

29 

2 

S( J*!)*S<I.J) 

FS 

:c 

GO  TO  7 

FS 

31 

c 

FS 

32 

c 

SET  JP  S MATRIX  FOW  Pl.ANF  SYMMETRY 

FS 

33 

c 

FS 

36 

3 

KK  * 1 

FS 

35 

S(l«l>*Tl.«0.) 

FS 

36 

IF  ( TNOP.F0.2) .OR. TN0P.E0.6) .0*. TNOP.F0.8) ) GO  TO  A 

FS 

37 

STOP 

FS 

38 

6 

KAsNOP/2 

FS 

39 

IF  (N0P.E0.8)  K A * 3 

FS 

60 

00  6 Ksl.KA 

FS 

61 

DO  5 I = 1 iKK 

FS 

62 

00  5 1M**K 

FS 

63 

0ETEB*S( I. J) 

FS 

66 

ST  I • J**k)*0ETEQ 

FS 

65 

ST !♦**. JaKKIm-OETCO 

FS 

66 

5 

ST  I *KK. j»*0£TEB 

FS 

67 

6 

KK*KK«2 

FS 

66 

C 

FS 

69 

c 

COMBINE  NP  X NP  SUBMATPICJFS  TO  FO* m MATPICIES  OF  SYMMETRY  MOOES. 

FS 

50 

c 

FS 

51 

7 

IE  (ICl.EO.-l)  GO  TO  19 

FS 

52 

I2s?»N°BLM*NB0M 

FS 

S3 

ICOLS*np«L* 

FS 

56 

IF  TICASE.LT. 3)  I COL  S = NP 

FS 

55 

00  13  L = 1 • N9L0KS 

FS 

56 

IF  TICASE.LT. 3)  GO  TO  8 

FS 

57 

CALL  BiCKlN  (lltlt J2t]*601) 

FS 

58 

IF  TL.FO.NBLOkS)  icols=nlast 

FS 

59 

8 

CONTINUE 

FS 

60 

00  12  I *1 • ICOLS 

FS 

61 

00  12  J» 1 *NP 

FS 

62 

DO  9 K = 1 » NOP 

FS 

63 

K Aa J* Tk-1 ) »NP 

FS 

66 

DTK) =A  r<A.  I ) 

FS 

65 

9 

CONTINUE 

FS 

66 

0ETEB*0(1) 

FS 

67 

00  10  kk*2.N0P 

FS 

68 

10 

DETEB*DETFR*0TKK) 

FS 

69 

A T J#  I ) *OET£P 

FS 

70 

DO  12  k*2,nOP 

FS 

71 

KA*J*  TK-1 )»NP 

FS 

72 

OETFBafi  ( 1 ) 

FS 

73 

DO  11  *<*?,NOP 

FS 

76 

11 

OETE»*DETFBaOTKK) •S(K.KK) 

FS 

75 

ATKA*I)*OETEB 

FS 

76 

12 

continue 

FS 

77 

IF  TICASE.LT. 3)  GO  TO  13 

FS 

70 

CALL  BlCKOT  T12.1.I2.1  »G03) 

FS 

79 

13 

CONTlNuF 

FS 

80 

1* 

IF  T ICASE.GT.3I  GO  TO  17 

FS 

01 

C 

FS 

82 

C 

FACTOB  S08MATPICIES.  OR  FACTOR  COMPLETE  MATRIX  IF  NO  SYMMETRY 

FS 

83 

C 

EXISTS. 

FS 

86 

c 

FS 

85 

DO  16  K K * 1 . NOP 

FS 

86 

KA* (KK- 1 ) *NP • I 

FS 

87 

IF  TICASE.F0.3)  GO  TO  IS 

FS 

88 

CALL  FACTR  (NP.A(KA.l) . IP(kA) ,n»0m) 

FS 

89 

GO  TO  16 

FS 

90 

15 

call  fac.io  ta.npom.ncol* IP) 

FS 

91 

call  lunSCr  (a.nnow.ncol . Jx«  Ip) 

FS 

92 

IC3«-1 

FS 

93 

CALL  Cn«P«t 

FS 

94 

16 

CONTINUE 

FS 

95 

B| TuBn 

FS 

96 

\y 

CONTINUE 

FS 

97 

c 

FS 

98 

c 

rewrite  thc  matrices  «r  columns  on  tape  j j 

rs 

99 

c 

FS 

100 

00  18  KaltNOP 

FS 

101 

BE  W I NO  12 

FS 

102 

IC0LS*nP8La 

FS 

103 

00  16  L«l*NBLOKS 

FS 

104 

CALL  BLCMn  (12.1*12*1 *602) 

FS 

105 

IF  (L.EQ.NBLOKS)  IC0L^*NLAST 

FS 

106 

00  i«  /COLOA-1  *IC0LS 

FS 

10? 

)*NP*1 

rs 

108 

IP2*K*NP 

FS 

109 

•BITE  (131  (All. ICOLOx >.I*IR1«1B2) 

FS 

110 

16 

CONTINUE 

FS 

111 

1* 

CONTINUE 

FS 

112 

IF  (ICASE.EQ.5)  GO  TO  20 

FS 

113 

IC1  — l 

FS 

114 

CALL  C*«PBT 

FS 

115 

?0 

PE 6 I NO  11 

FS 

116 

BEKINO  12 

FS 

in 

BEWINO  13 

FS 

lie 

Bf  H 1N0  15 

FS 

119 

IF  (ICasE.EO.S)  Go  to  21 

FS 

120 

CALL  S'lBl  (NP.A.NOP*  IP*NBOn) 

FS 

121 

betubn 

FS 

122 

21 

CONTINUE 

FS 

123 

CALL  SU02  (A.NP.NCOLS.NOP. fP» IX.NRO*) 

FS 

124 

BETUBN 

FS 

125 

END 

FS 

126- 

SUBROUTINE  E BLOCS  <NBLOKS.NPBL«.NL»ST.IR»«.I»Ol».IrOL<lNT) 

FB 

1 

C 

FB 

2 

C 

F8L0C*  0€Teti*t*eS  FLOCK  S/7£ 

A NO  NUNSfB  OF  BLOCKS  WHEN  OUT -OF -CONE 

FB 

3 

C 

MATRIX  STORAGE  IS  PEOUIBED. 

INT*0  BETUONEO  IF  MATRIX  FITS  IN  CONE 

FB 

4 

c 

FB 

5 

IF  <!B0»MC0L.LE.IMAX)  GO  TO 

3 

FB 

6 

!NT*1 

FB 

7 

NCOlMXsIMAx/IBO« 

FB 

8 

IF  (NCOLMX.LE.l)  stop 

FB 

9 

IF  (NC0LNX.Ea.2l  GO  TO  1 

FB 

10 

JF  INCOLNX/P.EO.  (NCOLMA-1) /2» 

NrOLN**NCOLMX-l 

FB 

11 

1 

NPBL««NC0LNX/2 

F 8 

12 

NBLO«S*tCOL/NPflL« 

FQ 

13 

NLAST«!COL-mBLOK$»NPBLK 

FB 

14 

IF  (NIA5T.EO.O)  GO  TO  2 

FB 

15 

NBl O*S*N0LOKS*1 

FB 

16 

GO  TO  5 

FB 

17 

2 

NL4ST*NP0L* 

FB 

18 

GO  TO  5 

FB 

19 

3 

N8L0«S*l 

FB 

20 

NP8LK** 

FB 

21 

NL4ST*0 

F8 

22 

INT-0 

FB 

23 

4 

BETUBN 

F8 

24 

5 

CONTINUE 

FB 

25 

PRINT  4«  NBLO*S.NPBLK,NLAST 

FB 

26 

GO  TO  4 

FB 

27 

C 

FB 

28 

6 

FOBHAT  (1X.11H  BLOCKING  .415/) 

FB 

29 

ENO 

FB 

30- 

SUBROUTINE  FFLO  1 ThET ,Pm! .ETH.EPH) 

FF 

1 

C 

FF 

2 

C 

fflo  calculates  the  fan  zone  badjated  electbic  fiflos. 

FF 

3 

C 

the  factor  c*p( j«k»r)/(r/lamoai  not  tNCLuoEO 

FF 

4 

C 

FF 

5 

CON AON  /DATA/  LO.N.NP .N.mP . X ( 1 000 1 .7 ( 1 000 ) . 7 ( 1 000 ) .S 1 ( 1 000 1 .8 1 ( 100 

FF 

6 

10) .ALP(IOOO) .BET (1000) «IC0N1( 1000) «1C0N2< 10001  • IT  AG (10001 .WLAN. IPS 

FF 

7 

2TN 

FF 

8 

CONNON  /ANGL/  SALP(IOOO) 

FF 

9 

COMMON  /CBNT / AIB ( 1000) .All (1000) *6 tB( 1000) • B I I (1000) *C IB ( 1 000 ) *C I 

FF 

13 

1 I (1000) .CUP (2000) 

FF 

11 

COMMON  /GND/  7BATI.2BaTI2.CL*Ch.SCB6L.SCBwB.NBA0L.KSTMP. IF AB. IPEBF 

FF 

12 

OlMfNSrON  CA 0(1).  SABd 

FF 

13 

EQUIVALENCE  ICABIIMAlJMIM*  (SABd)  .BET(l) ) 

FF 

16 

COMPLEX  Cl X .Cl V.CIZ*E* A.E Th.EPH. CONST. CCX.CCT.CC2. cop *cub 

FF 

15 

COMPLEX  7PAT J,ZRSlN»BPV.PBH*0BVl.BBHl.P0V2.PBH2.2PATI2.TlX.Tir.TlZ 

FF 

16 

COMPLEX  STOP.T1.ZSCBN 

FF 

17 

complex  Ex. Er.CZ.Gx.Gr.GZ 

FF 

18 

data  PT. TP.CONST/3. 141592654. 6. 2831B530B. (0.. -29. 079)/ 

FF 

19 

OATA  STOP. ET A/ (0.. 2367. 06 7) .376.7 J/ 

FF 

20 

IF  ( IFAB.LT .4)  GO  TO  1 

FF 

21 

Tl«STOB/FLOAT(NBAOL» 

FF 

22 

T2«SCPVP#FL0AT (MBAOL ) 

FF 

23 

1 

PHX*-S IN (PH  I ) 

FF 

24 

PHY«COS(PHI) 

FF 

25 

BOZ*COS(THET) 

FF 

26 

BOZS-BOZ 

FF 

27 

THX«R07#P«r 

FF 

28 
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TMYs-ROZ*PhX 

FF 

29 

TmZ*-SIN(  TmET» 

FF 

10 

R0*»-T*7«Phy 

FF 

31 

ROY  * Th7*P«x 

FF 

32 

IF  (N.fQ.O)  On  TO  21 

FE 

33 

c 

FF 

34 

c 

LOOP  F OP  STRUCTURE  IMAGE  IF  Any 

FF 

35 

c 

FF 

36 

00  20  »*i*ksvmp 

FF 

37 

c 

FF 

38 

c 

CAtCUlAUON  or  reflection  coefffcients 

FF 

39 

c 

FF 

40 

IF  (K.F  0.  ll  GO  TO  *> 

FF 

41 

IF  UpfPF.nE.1I  GO  TO  2 

FF 

42 

c 

FF 

41 

c 

FOR  PEPFFCT  GROUND 

FF 

44 

c 

FF 

45 

PRV=(-1 .*0.) 

FF 

46 

RPMa (_i  , ,0.  ) 

FF 

47 

GO  TO  1 

FF 

48 

c 

FF 

49 

c 

For  Infinite  planar  grounO 

FF 

50 

c 

f F 

51 

? 

ZRSlN=CSQRT ( 1 .-7WAT1»7WATI«TNZ*TH7> 

FF 

52 

RRV*- (POZ-7RAT I *ZRS 1 N l / (W0Z*7WAT I*76SlN) 

FF 

53 

RPH3  ( 7° AT  I •R07-ZRSIN)  / CZPAT  I •R07*7»SIM 

FF 

54 

1 

IF  ( IF4P.LE.1 ) GO  TO  4 

FF 

55 

c 

FF 

56 

c 

FOR  THF  CLIFF  PRORlFM.  TwO  HEFlcTION  COEFFICIENTS  CALCULATED 

FF 

S7 

c 

FF 

58 

RRVlsRQV 

FF 

59 

RRHlaffOM 

FF 

60 

TThET^TAnUmET) 

FF 

61 

IF  ( IFAP.E0.4l  GO  TO  4 

FF 

62 

Z»SIN*rSQRT  fl ,-Z»AT  U«ZRAT I2#Th7*THZ» 

FF 

63 

ROV2»- rP07-7RATI2«7RSlN) / »POZ*/RAT I?*7RS IN) 

FF 

64 

RRH2a (7PATI?*P07-7«SlN» / I7PAT I?»«07*7RSIN) 

FF 

65 

DAPG*-TP*?.»C^aR07 

FF 

66 

4 

R07a-R07 

FF 

67 

CC»*C!« 

FF 

68 

CCY*CIY 

FF 

69 

CCZ*C  1 7 

FF 

70 

s 

ClXa(0.«0.l 

FF 

71 

CIY»(0..0.) 

FF 

72 

CI2X0..0.) 

FF 

73 

c 

FF 

74 

c 

LOOP  OVER  STRUCTURE  SEGMENTS 

FF 

75 

c 

FF 

76 

00  18  1*1. N 

FF 

77 

OMFGA  = -fffO*ACAflU)  ♦ ROY  »SA8U  I •*nZ»S  ALP  II)  ) 

FF 

78 

EL*PI«SI  1 1 1 

FF 

79 

SILL»0MEGA*EL 

FF 

80 

T0P*EL*SILL 

FF 

81 

80T*EL-SILL 

FF 

82 

IF  (ARC (OMEGA) ,LT. 1 .E-7)  Go  TO  A 

FF 

83 

A*?.«STN(SILL) /OMfGA 

FF 

84 

GO  TO  7 

FF 

85 

6 

A* (2.-OMEGa*OMEGA*EL»FL/3. )*EL 

FF 

86 

7 

IF  (Apc(TOP) .LT.l.E-7)  GO  TO  8 

FF 

87 

TOO*STN(TOP) /TOP 

FF 

88 

GO  TO  P 

FF 

89 

8 

T00*1 .-T0P*T0P/6. 

FF 

90 

9 

IF  (ARs(ROT) .LT.l.F-7)  GO  TO  1* 

FF 

91 

BOO*SIS(ROT )/ROT 

FF 

92 

GO  TO  11 

FF 

93 

10 

BOO*l.-ROT»BOT/f>. 

FF 

94 

11 

R*FL • TROO- TOO  I 

FF 

95 

C*EL«(ROO.TOO) 

FF 

96 

QR  = A* A I 0 ( I ) *B»RI  1 ( I ) *C*C I R ( I ) 

FF 

97 

RI*A«AII ( I ) -B*BIP ( I) *C»C  IJ  ( I ) 

FF 

.98 

ARG«TP* (X ( I)*ROX«V( I )OROY.7 ( I )*R0?) 

FF 

99 

IF  (K.FO.Z.ANO.IF AP.GF.2)  GO  TO  12 

FF 

100 

E ■ A*CMDL  X (COS(APG) .SIn(ARG) ) *Cmplx (RR.HI ) 

FF 

101 

C 

FF 

102 

c 

SUMMATION  FOR  FAR  F lEl D INTEGRAL 

FF 

103 

c 

FF 

104 

CIXsCIX*eXA*CAR<  I ) 

FF 

105 

ClY*ClY.£XA*SAB<  I ) 

FF 

106 

CIZ*C!Z*EXA»SALP<1> 

FF 

107 

GO  TO  JR 

FF 

108 

c 

FF 

109 

c 

CALCULATION  OF  IMAGE  CONTRIBUTION  IN  ClIEF  ANO  GROUNO  SCREEN 

FF 

110 

c 

PROBLEMS. 

FF 

111 

c 

FF 

112 

12 

ORaZCI )*TTMET 

FF 

113 

c 

FF 

1 1 A 

c 

SPECULAR  POINT  DISTANCE 

FF 

ns 

c 

FF 

116 

0*0R*phv»X ( I ) 

FF 

117 

IF  (IFAR.EO.2)  GO  TC  14 

FF 

118 

D*SQRT (0*0 .(Y(I) “OR* Ph* ) ••? 1 

FF 

119 

IF  (IFAR.E0.3)  GO  TO  14 

FF 

120 

IF  USrRWL-O)  .LT.O.I  GO  TO  11 

FF 

121 

c 

FF 

122 

c 

RADIAL  MIRE  GROUNO  SCREEN  PEFLFCTION  COEFFICIENT 

FF 

123 

c 

FF 

124 

0*DU2 

FF 

125 

7SCRNsTl*0*AL0G(0/T2> 

FF 

126 

ZSCRN*( >SCRN«7RATI )/ (F  TA*7RAT I »?SCRN) 

FF 

127 
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ZRSIN*rS0PTU.-ZSCRN»7SCRN«TNZ«TMZ> 

EF 

128 

RRV*  (ROZ*ZSCRNVRSlM  / (-R0Z«ZSCRN«2RS  IN) 

EE 

128 

RRMs ( 7SCRN»R07*?RSIN) / (ZSCRN*RO?-ZRSlN> 

EE 

130 

GO  TO  l? 

FE 

131 

13 

IF  (IFAR.EQ.6)  GO  TO  lS 

EE 

132 

IF  (IFAR.E0.5)  n*DP»P*Y*A f I > 

EE 

133 

1 <• 

IF  HCL-O)  .LE.O.)  GO  TO  16 

EF 

136 

15 

RRVaRRV 1 

FF 

135 

RRHaRRHl 

FF 

136 

GO  TO  17 

FE 

137 

16 

RRV«RBV2 

FF 

138 

RRH«RRH2 

FF 

139 

ARG«ARG«DARG 

FF 

160 

17 

EXA*CMPLX(COS(ARG>  .SIN(ARG) )«CMPLX(RR.Rl) 

FF 

161 

C 

EF 

162 

c 

contribution  of  each  image  segment  mooified  by 

REFLECTION  coef.  , 

FF 

163 

c 

FOP  CLIFF  ANO  GROUNO  SCREEN  PROBLEMS 

FF 

166 

c 

FF 

165 

TIX>EXA«CAB(I) 

FF 

166 

TlYsEXA«SAR(l) 

FF 

167 

TIZ»CXA«SALPU) 

FF 

168 

COP* ( T ! X»PHX ♦ T I y«PHY ) • ( RRH-RRv ) 

FF 

169 

CIX*CH*TIX«RBV*CDP*PhX 

FF 

150 

C I V*C I Y ♦ T I T*RPV*COP*PmY 

FF 

151 

C I ?*C I Z-T I 7*RPV 

FF 

152 

18 

continue 

FF 

153 

IF  IK.ro. n GO  TO  20 

FF 

156 

IF  ( IFar.GE .2)  GO  TO  ]9 

FF 

155 

C 

FF 

156 

C 

CALCULATION  OF  CONTRIBUTION  OF  STRUCTURE  IMAGE 

FOP  infinite  ground 

FF 

157 

C 

FF 

158 

COP* (C I X*PHX*C I Y*PHY 1 • (RRM-RRV | 

FF 

159 

cix*ccx*cix*rrv*cdp«phx 

FF 

160 

CIY*CCV*CIY*RRV*COP*PmY 

FF 

161 

CIZ«CCZ-C1Z*»RV 

EF 

162 

GO  TO  20 

FF 

163 

19 

CIX«CIX*CCX 

EF 

166 

C I Y*C I V *CCY 

FF 

165 

CIZ«CIZ*CCl 

FE 

166 

?0 

CONTINUE 

FF 

167 

IF  (M.GT.O)  GO  TO  22 

FF 

168 

ETM* (Cl X«TMX*C1y»TMY*CIZ*TnZ) •CONST 

FF 

169 

EPm*  < C I X «PHX *C I Y *PH T ) •CONST 

FF 

170 

RETURN 

FF 

171 

21 

ctx»io,.o.) 

FF 

172 

ClY«(0..0.l 

FF 

173 

CI7«<0..0.) 

FF 

176 

22 

ROZ-ROZS 

FF 

175 

C 

FF 

176 

C 

Electric  field  components  due  to  surface  currents 

FF 

177 

c 

FF 

178 

EX-I0..0.) 

FF 

179 

EVs (0. .0. > 

FF 

180 

EZ*(0.*0.) 

FF 

181 

rel»-i. 

FF 

182 

00  23  IP-l.KSYMP 

FF 

183 

pfl*-rfl 

FF 

186 

RRZ*R07#RFL 

FF 

185 

CALL  FFLDS  (R0X'R0Y*RPZ«CUP(NM)«GX,GV,GZ) 

FF 

186 

EX*EX*GX*RFL 

FF 

187 

ET*ET*GY*RFL 

FF 

188 

23 

E2*E2*GZ 

FF 

189 

EX*EX*C 1 X*CONST 

FF 

190 

ET*ET*CIY*CONST 

FF 

191 

EZ*EZ*CI?*CONST 

FF 

192 

eth«exmmx*ey*thy*ez*tmz 

FF 

193 

epm*ex«phx*ey«pmy 

FF 

196 

RETURN 

FF 

195 

ENO 

FF 

196- 

SUBROUTINE  FFLDS  (POX .ROY *B0Z *SCUB*E X*EY*EZ) 

FL 

1 

C 

FL 

2 

C 

CALCULATES  THE  XYZ  COMPONENTS  OF  THE  ELECTRIC  FIELD  DUE  TO 

FL 

3 

C 

SURFACF  CURRENTS  tN  ARRAY  SCUW 

FL 

6 

C 

FL 

5 

COMMON  /DATA/  LD*N*NP.H.MP, X ( 1 000) . Y I 1 000 ) #Z ( 1 000 > *S I (1 000 ) .81  f 1 00 

FL 

6 

10) .ALP (1000) «BET(1000) tlCONl (1000) .ICON2I1000) .ITAG(IOOO) tWLAM.IPS 

FL 

7 

2YM 

FL 

8 

DIMENSION  SCUR(l) 

FL 

9 

DIMENSION  XSI1).  VSI1).  ZS(1)*  Sfl) 

FL 

10 

COMPLEX  CT.CONS.SCU«*EX.EY,EZ 

FL 

11 

EQUIVALENCE  (XS.X).  (YS.Y).  (ZS.Z).  (S.BI) 

FL 

12 

OATA  CONS/ (0 • « 188.365) / 

FL 

13 

DATA  TP 1/6 .283 185308/ 

FL 

16 

EX*(0.«0.) 

FL 

15 

EV* (0. *0 . ) 

FL 

16 

EZ« (0. .0. ) 

FL 

17 

I*LO* 1 

FL 

18 

DO  1 J* 1 *M 

FL 

19 

I-I-i 

FL 

20 

ARG*TP1 • (POX*XS ( I ) *ROy«YS ( I ) ♦ROZ*ZS ( I ) ) 

FL 

21 

CT«CMPIX(C05(ARG)»S(I)*SIN(ARG)«S(I)) 

FL 

22 

K*3#  J 

FL 

23 

EX*EX*SCUR(K-?)*CT 

FL 

26 

EY*£Y*SCUR(K-I )*CT 

FL 

75 

EZ*EZ*SCUP(K)*CT 

EL 

26 

1 

CONTINUE 

FL 

27 
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c 

c 

c 
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2 


3 


C 

C 

c 


c 

c 

c 

1 


2 

3 


C 

C 

C 

4 


c 

c 

c 


s 

h 


Cl  *RO«*f  1 .PQ Y *E  1 *M(jZ **  7 

Ft 

2 8 

f a«CONS«CCT*RQa-ta  > 

FI 

29 

Ey*C0n««  CCT«Roy-E » i 

FL 

10 

FZ*C0NS*CCT*»07-I  7| 

FL 

31 

RE Tu»N 

ft 

32 

fNO 

fl 

31- 

SURROJHNE  GF  </«,rO.  1) 

GF 

1 

GF 

2 

GF  COMMITS  W KUG-ANO  f IMP)  / (*R|  F OH  NUMERICAL 

intfgration.  of 

3 

GF 

4» 

COMMON  / Tm  | / ^PK  « w«  12  • 1 J 

GF 

5 

ZO'oZk.zpk 

GF 

6 

OK  * SOW  T <0*h2*  /0««/0* 1 

OF 

7 

S!*SlN(R*) /R* 

GF 

8 

IF  IIJI  i. 2.1 

Of 

9 

CO*COS  fRK  > /6K 

GF 

10 

RETURN 

GF 

11 

IF  (RK.lT.,21  GO  TO  1 

GF 

12 

CO* CCOS  <R* 1-1*1 /*« 

GF 

13 

RETURN 

GF 

14 

»KS*»K *RK 

GF 

15 

CO* I 1-1 , 388H8889C-l»R.rS.4. 1666**67F -21 •RKS-.5) •RK 

GF 

16 

RETURN 

GF 

1? 

END 

GF 

18- 

SUBROUTINE  GFLO  CRmO.pmJ .R/X.E Th.EPI .ERO.UK.KSrMPl 

00 

1 

GO 

2 

GElO  COMPUTES  THE  RAO  I A f£0  eielo  including  G ROUND  RAVE. 

GD 

3 

GO 

4 

COMMON  /DATA/  LD.N.NP.M»MP*aUO00)  .1  ( 1 000  ) • Z ( 1 000  ) • S I ( 1 000  1 . B I C 100 

GO 

5 

10 )• ALP ( 1000 )*BET ( 1000 )• ICONl ( 1000 ).IC0N2( 1000). IT  AG ( 1000 t.MLAM, IPS 

GO 

6 

2YM 

GO 

7 

COMMON  /ANGl/  SALP(IOOO) 

GO 

8 

COMMON  /CRNT / AIR ( 1000) .All ( 1 000 ) 1R ( 1 000 ) *BtI lloOO) .C IR U 000 ) «C I 

GO 

9 

11  (lOOOl  .CURC2000) 

GO 

10 

COMMON  /G WAV/  RH$ .CPH * SPH. PZ *H. u *U? • X X 1 * XX2 .ERV . E 7 V .ERH.EPH *EZH 

GO 

11 

OIMENSION  CAB(l) * SAB(l) 

GO 

12 

EOUl  VAl.ENCF  (CAR < 1 > • Al P ( 1 )) . (SaB( 1 ) .RET ( 1 )) 

GO 

13 

COMPLEX  CUR.EPI.CIX*CIY*CIZ»£XA.XX1»XX£*U.U2.ERV*£?'''  .ERH.EPH 

GO 

14 

COMPLEX  E7h.EX.E7.ETm.UX.EkO 

GO 

IS 

OATA  Pr. TP/3. 1415926.6.2831853/ 

GO 

16 

R*SORT  <RHO«RHO*R2a«RZx) 

GO 

17 

IF  C*SrMP.E0.]>  GO  TO  1 

GO 

18 

IF  CCARSCUX)  .GT..S)  GO  TO  1 

GO 

19 

IF  CR.GT.l.ES)  GO  TO  1 

GO 

20 

GO  TO  * 

GO 

21 

GO 

22 

COMPUTATION  OF  SPACE  WAVE  ONLY 

GO 

23 

GO 

24 

IF  (RZx.LT.l.F-20)  GO  TO  2 

GO 

25 

THFT«AT AN(RM0/R7X) 

GO 

26 

GO  TO  1 

GO 

27 

TMFT  aP I • .5 

GO 

28 

CALL  FFLO  (THFT.PHI.E TM.£PI> 

GO 

29 

ARG*-TP*R 

GO 

30 

EXA*CMPLX(COSIARG) .SlwIARG) )/R 

GO 

31 

ETM*ETm»EXA 

GO 

32 

EPI>EPJ«EXA 

GO 

33 

ERO*  CO. .0. ) 

GO 

34 

RETURN 

GO 

35 

GO 

36 

COMPUTATION  OF  SPACE  AND  GROUND  WAVES. 

GO 

37 

GO 

38 

RZ*RZX 

GO 

39 

u*ux 

GD 

40 

U2*U«U 

GO 

41 

PHX*— STNCPHl ) 

GO 

42 

PHV*COS  CPHI ) 

GO 

43 

RX»PHO*PHy 

GO 

44 

RV*-RH,T»PMX 

GO 

45 

CIX*C0..C.) 

GO 

46 

Cl »* (0. .0. ) 

GO 

47 

C17X0..0.) 

GO 

48 

GO 

49 

SUMMATION  OF  F IELO  F Rc)M  iNOIVlOtlAL  SEGMENTS 

GO 

50 

GO 

51 

00  17  T«1.N 

GO 

52 

DX*CAR< I > 

GO 

53 

OY«SAB(I) 

GO 

54 

OZ*SALPC 1) 

GO 

55 

RI X*RX-X C t ) 

GO 

56 

R|  rapy-rtn 

GO 

57 

RHS*RIX*R|X«R!Y«RI y 

GO 

58 

RHP«SOOT CBhS) 

GO 

59 

IF  CRhp.LT.I.F-6)  GO  to  5 

GO 

60 

RMXaRf X/RMP 

GD 

61 

RHVaRf V/RHP 

GO 

62 

GO  TO  »• 

GO 

63 

RMX«1. 

GO 

64 

RMY*0. 

GO 

65 

CALP»l.-OZ»OZ 

GO 

66 

IF  CCAlP.LT. l.F-6)  GO  TO  7 

GO 

67 

calp*so»tccalp) 

GO 

68 

CRF  T =OX  /CA|  P 

GO 

69 

I 
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7 

a 

c 

c 

c 

c 


9 

10 


11 

1? 


13 

19 


15 

16 

C 

C 

C 

C 


17 


C 

C 

C 

C 


SBC T-OV/CAlP 

GO 

70 

CPh-PHX*CSET»PMV«SB£T 

GO 

71 

SPH-PHY«CBFT-PMX»SBET 

GO 

72 

GO  TO  a 

GO 

73 

CPH-RMi 

GO 

79 

SPHaffMY 

GO 

75 

Cl •PI*S1 (!) 

GD 

76 

RFl«-1. 

GO 

77 

GO 

78 

INTEGRATION  of  (CURRENT 1 • (PHASE  FACTOR) 

OVER  SEGMENT  AnO 

image  for 

GO 

79 

CONSTANT.  SINC.  And  cosine  current  distributions 

GO 

80 

GD 

81 

00  16  *»1.2 

GO 

82 

PFLa-PFL 

GO 

83 

P!Z*«7-7f !>*PFl 

GO 

89 

pi yz- sort  ip i x*p i i .r  i y *r iy*riz#piZ) 

GO 

85 

pni.r I I /PI vZ 

GO 

86 

PNY.PIY/PIY7 

GO 

87 

PN7-PI7/PIY7 

GO 

88 

0Nf6A»-|PNI*0l*PNY*0Y.PNZ«07»PFL) 

GO 

89 

SlLL-0«CGA»EL 

GO 

90 

TOP-EfSlLL 

GD 

91 

ROT-CL-SILL 

GO 

92 

IF  (ABMOMEGA)  .LT.l.C-7)  Go  TO  9 

GO 

93 

A-?.*SINISILU /ONEGA 

GO 

99 

GO  TO  10 

GO 

95 

A»<2.-0PE6A»0M£GA»Cl»FL/3.) *EL 

GO 

96 

IF  UBMTOPI  .LT.I.C-7)  GO  TO  11 

GO 

97 

T00*SIN«T0P)/T0P 

GO 

98 

GO  TO  12 

GO 

99 

TOO-1 .-TOP-TOP/6. 

GO 

100 

IF  (A*S (ROT) .LT.l.E-7)  GO  TO  13 

GD 

101 

000-SIN (BOT) /ROT 

GO 

102 

GO  TO  1 A 

GO 

103 

BOO-1. -801*807/6. 

GO 

109 

8*EL*IB00-T00l 

GO 

105 

C-CL* I ROO* TOO) 

GO 

106 

RR*A* A I P < I ) -0*8 1 1 ( 1 1 -C#C I R ( 1 1 

GO 

107 

RI*A*AII<I)-B*BIR(1>*C*C11<I> 

GO 

100 

APG-TP* ( X l I 1 *PNX»Y( 1 1 *RNV -Z 1 I >*RNZ#PFL) 

GO 

109 

EXA-CMPLX(COS<APG) .SIN(APG) l#CMPLX(RP«RII/TP 

GO 

110 

IF  (K.E0.2)  GO  TO  15 

GO 

111 

XX 1 -E I A 

GO 

112 

GO  TO  16 

GO 

113 

IX2-CIA 

GO 

119 

CONTINUE 

GO 

115 

H-7III 

GO 

116 

GO 

117 

CALL  SUBROUTINE  TO  COMPUTE  THE  FIELD  OF 

segment  Including 

ground 

GO 

118 

WAVE. 

GO 

119 

GO 

120 

CALL  GwAVC 

GD 

121 

erh-erh*calp*erv«dz 

GO 

122 

EPM-EPH-CALP 

GO 

123 

EZH-E7h*CALP4EZ  Y*07 

GO 

129 

CX«CPH«PHX-EPH*PHY 

GO 

125 

E Y»CPM*RHY .£PH*RHI 

GO 

126 

cix-cii-cx 

GO 

127 

CIY-CIY-CY 

GO 

128 

CIZ-CI7-E7H 

GD 

129 

ABO— TP«P 

GO 

130 

CXA-CMPLX(COSfAPG) .SlN(ABG) 1 

GO 

131 

CIl-CIl*EXA 

GD 

132 

CIV-CI Y*CXA 

GO 

133 

C1Z-CI7-CXA 

GO 

139 

PNX-RX/R 

GO 

135 

PNY-PY/P 

GO 

136 

RNZ-PZ/P 

GO 

137 

thx*rnz*phy 

GO 

138 

THY— RnZ*PHX 

GO 

139 

TH7»-RhO/R 

GD 

190 

ETH-CII*TNI-CIV*Thy-CIZ*THZ 

GO 

191 

EPI*CIX«PHX*C!Y*Pmy 

GD 

192 

ER0-CII«RNX*CIV#RNV»CIZ*RNZ 

GO 

193 

RETURN 

GO 

199 

END 

GO 

195- 

SUBROUTINE  OH  (7B.HP.Hl) 

GN 

1 

GH 

2 

COMPUTFS  INTCGRANO  FOP  NUMERICAL 

integration  of 

magnetic  field  oue  gm 

3 

TO  A CONSTANT  CURRENT  ON  A PIPE 

segment 

GH 

9 

GH 

5 

COMMON  /TMH/  7PK*PHKS 

GH 

6 

RS-ZK-7PK 

GH 

7 

RS«RHKS«RS*RS 

GH 

8 

R-SQBT (RS) 

GH 

9 

CRR-COS  < R ) 

GH 

10 

SKP-SIN(R) 

GH 

11 

RP2-1./RS 

GH 

12 

RR3-RR2/R 

GH 

13 

MR*SKR»RR2*CKP*RR3 

GH 

19 

MI*CKR»BR2-SKR»RR3 

GH 

15 

RETURN 

GH 

16 

END 

GH 

17- 
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SUBROUTINE  GN  IE ZP.EZ T *ERR .ER I» 

GN 

1 

GN 

2 

GN  MULTIPLIES  THE  FIElO  COMPONENTS  IN  ANO  NORMAL  TO  Th£  PLANE 

OF 

GN 

3 

INCIDENCE  RY  THEIR  GROUND  PL4NF  REFLECTION  COEFFICIENTS  TO  RETURN 

GN 

4 

TOTAL  FIELD  AFTER  REFLECTION. 

GN 

5 

GN 

6 

COMMON  /REFL/  RMU*.HHOY.RhoZ.CARJ.SARJ,SALPR*PX.Py.REFS.REFPS 

GN 

7 

COMMON  /GN 0/  7RATI .ZRATI2.CLtCH*SCR«l •SCR«R*NRADL.KSYMPV IFAR. 

IPFRF 

GN 

8 

comple*  ez.er.erx.ery.erz.epx.i py,»EFS*REFPS*ZRATi.ZRATI2 

GN 

9 

IF  (IP^RF.NE.l)  GO  TO  1 

GN 

10 

E7R»-E7R 

GN 

11 

ezi«-€7i 

GN 

\2 

ERRs-FRR 

GN 

13 

ER I *-f P I 

GN 

14 

RETURN 

GN 

lb 

ez*cmplx<ezr.fzi» 

GN 

16 

ER* CMPi  xtERR'FBP 

GN 

17 

ERx*RH0X*ER*CARj*E7 

GN 

16 

ERy*Rhov*ER*SA«j»EZ 

GN 

19 

ER7*RH0?*ER»SALPR*EZ 

GN 

20 

EPV*Px*ER«*PV*ERV 

GN 

21 

EPl*PX«FPY 

GN 

22 

EPY*PY*PPY 

GN 

23 

c p i «P£r  s*epx*ref  ps*EP» 

GN 

24 

ERV*Rf.FS*ERY  *PE  FPS*EP  y 

GN 

25 

FR/bREF  S*EbZ 

GN 

26 

EZ*ER<»C4Hj*ERY«SAR  J*r*»Z«SALPR 

GN 

27 

ER*FRa.RHOX«ERY*MHOY  *F  RZ*Rm-3Z 

GN 

28 

FZR*»f  •!  »C7> 

GN 

29 

EZI«AIMAG(EZ> 

GN 

30 

ERpaREAL IER) 

GN 

31 

ERIbA(magiFR) 

GN 

32 

RETURN 

GN 

33 

END 

GN 

34* 

c 

c 

c 

c 

c 


SURROUUNF  GWA*E 

G*»¥E  COMPUTES  Tm€  ELECTRIC  F IFLO*  INCLUDING  GROUND  Mlvti  Of  A 
CURREN*  ELEMENT  Oyftt  4 GOO(jWr/  *\  *Hf  USING  F ORMt  A. A ri  OF  K.A.  NORTON 
IPROC.  IRC.  SEPT • • 1937.  *»P.  »?«!•  183#..  ) 

COMMON  /6«AV/  RhS.CPH.>PH.RZ«m«M.  )?•«■ 1 •M?«£RV»C7V*eRHt£PM«E2H 
CONPLE*  F J.TP  J.'J2.I>.R«  1 •MK<»«Tl  ,T2.T  1 . T 4 . P 1 . R V . 0*R . W . F . Q 1 . WH,  v « G.  *» 
1 1 .XR2.X1  .X2.X1,A«.,fb.i6.A  T,C/V.ERv.EZM.ERh.EPM*AA  ' *XX2,FC0N.EFUN 
OAT A F J/<0. #!•>/« TP J/(0.t6.263l6S3l/ 

0*TA  PT /3. I 4 1S926/ .ECON/ < 0 , » - 1 A" • 363  >/ 

ZO*RZ-* 

«\*SO«T  t«HS*ZD*?D) 

SPpPa  7n/R 1 
SPPP2*SPPP»SPPP 
CPPP2*1 .-SPPP2 
CPPP«SORT ICPPP?) 

ZD*RZ*h 

R2*SQRT «RMS*70«7D> 

SPP*ZO/R2 

SPPZ*SPP*SPP 

CPP2-1.-SPP? 

CPP*SORT  «CPP«I 
RK 1 *-TP J*R 1 
PK?«-TPJ*«? 

TI«1.-U2*CPP2 
TZ*CSORT (Tt) 

T3*tl.-1./RM>/»M 
T4* ( 1 .-1 ./RW2) /RK2 
PI *RK2#U2#T l#.5 
RV*<SPP-U*T2l  /ISPP*U*T2I 
0Mp*l.-QV 
W*1 ./0*R 

W* <4..0.)*PI*W*W 
FbFJ»CSQRT(W> 

F*1.-EFUN(F) 

01 *RK?»T 1/ (2. *02* 

RM*(T2-U«SPP)/<T2*U#SPPJ 
V* 1 • / ( 1 • ♦Rm ) 

V»(4.*f».)*01*V*V 

G*FJ*C«0RT(V) 

G* 1 .-EFUWIGI 
XR1«XX1/R1 
XR2*XX2/R2 
A 1 *CPPP2#XR 1 
X2=RV*CPP2*XR2 

X 3»0MR* ( 1 ,-U2*U2»02#CPP21 •F*XR? 

X4mU*T?*SPP*2.*XR2/RK2 

X5«XR1M3<M1.-3.*SPPP?) 

X6*XR2»T4»<|.-3.*SPP2> 

EZV«(X1  »X2*X3-X4-X5-XM*EC0N 

X1«SPPP*CPPP*XR1 

x2*Rv*«;pp*rpp«j(P2 

X3*CPP»0PR*U*T2#F«xR2«(l.-.b*(ii2*Tl-SPP2*l  ./RK2)  > 
I4«SPP#CPP*0MR*xR2/RK  ? 

X5*3.*^PPP*CPPP»T3»XRf 

X6*CPP»U«T2*0MR»X»2/R»r2»,s 

X7»3.*SPP*C.PP*T4*XR2 

ERv*-<X 1*X2-X3*X4-XS*«4-X7)*EC0N 

E?H*-CPH*(Xl-X2*X3-X4-XS-X6*X7»aECON 

X 1 *SPPP2*XP 1 

X2*RV*^PP?*XR? 


GW 

1 

GW 

2 

GW 

3 

Gw 

4 

GW 

5 

GW 

6 

GW 

7 

GW 

8 

GW 

9 

GW 

10 

GW 

11 

GW 

12 

GW 

13 

GW 

14 

GW 

15 

GW 

16 

GW 

17 

GW 

18 

GW 

19 

GW 

20 

GW 

21 

GW 

22 

GW 

23 

GW 

24 

GW 

25 

GW 

26 

GW 

27 

GW 

28 

GW 

29 

GW 

30 

GW 

31 

GW 

32 

GW 

33 

GW 

34 

GW 

35 

GW 

36 

GW 

37 

GW 

38 

Gw 

39 

GW 

40 

GW 

41 

GW 

42 

GW 

43 

GW 

44 

GW 

45 

GW 

46 

GW 

47 

GW 

48 

GW 

49 

GW 

50 

GW 

51 

GW 

52 

GW 

53 

GW 

54 

GW 

55 

GW 

56 

GW 

57 

GW 

58 

GW 

59 

GW 

60 

GW 

61 

GW 

62 
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>3* ( 1 . .BMI «G*AP?  OK  63 

»A*CPP2*U2*ONR*F*AR2  CD  66 

»S*T3*(1.-3.*CPPP2)*ArI  OP  65 

A6.T4* ( 1 .-3.»CPP2> • I I .-U2* ( 1 .*RV>-U2*0MR*F>*»R2  GP  66 

»7*u2*CPP2*ON9*(l.-l./RR2)*(F*(u2*Tl-SPP2-l./RR2).l./RR2>*»R2  G*  67 

ERn*CPm*(«i-«2.«3-»A-«S»A6.a7i*EC0n  GP  66 

A1.XR)  S*  69 

«2»RM*>R2  G»  70 

A3* (RM. | . | *G*XP2  0*  71 

AA*T3*IR1  G*  72 

A5*TA*tl.-u2*ll.*9v)-u2*0NB*F)*«B2  GP  73 

R6*.5*u2*OMR*(F*(u2*71-SPB2-l./RR2>.l./RR2l*AR2/R«2  GP  7* 

EPh*-sph. ( »l-«2. A J-A4.A5. AM *ECnN  GP  75 

Pf  TURN  GP  76 

END  OP  77- 


SUBROUTINE  MF<  (ELI .El2.RNR.2P*a,SGR.SGII  MR  1 

C MR  2 

c Nf<  Performs  NUMERICAL  INTEGRATION  FOR  The  MAGNET tC  FIELD  OF  A MR  3 

C CONSTANT  CURRENT  ON  A mire  SEGMENT  B»  The  METmOO  OF  VARIABLE  hr  6 

C INTERVAL  PIOTm  ROMBERG  INTEGRATION.  MR  5 

C MR  6 

COMMON  /TMM/  7PK.RMRS  MR  7 

OATA  NX. NM.NTS.PA/1. 65536*4. l.F-A/  N*  8 

2PR*ZPKX  MR  9 

RMKS*BMR*RMR  MR  10 

2*FLl  MR  II 

2E-EL2  MR  12 

S*7E-Z  MR  13 

£P-S/(]0.*NM)  MR  1* 

2ENOA2F-EP  MR  15 

SGRAO.O  MR  16 

SGMO.O  MR  17 

NS. NA  MR  18 

NT. O  HR  19 

CAl!.  Gm  (2.G1R.G1II  MR  20 

1 DZ*S/NS  MR  21 

02OTpO.’*0.5  MR  22 

2P*2*07  MR  23 

IF  (2P-7EI  3.3.2  MR  2* 

2 02*2E-7  MR  25 

IE  (A8S(07)-EP>  17.17.3  MR  26 

3 2P«Z.070T  MR  27 

CALL  Gm  (2P.G3R.G3tl  MR  28 

2P.2.07  MR  29 

CALL  Gm  I2P.G5R.G51I  HR  30 

A TOOR* (G1R.GSRI *0207  MR  31 

700I*(G11.GSII*020T  MR  32 

T»l»*lr00R.D2*G3B>*0.S  MR  33 

T01l*(T00I*O2*G3ll*0.S  HR  3A 

T10R»(4.0*T01R-T00R>/3.0  MR  35 

T10I*<*. 0*7011-70011/1.0  MR  36 

CALL  7FS7  I701R.T10R.7E1R.701I.7101.7EU)  MR  37 

IF  (TEII-RAI  5.5.6  MR  38 

5 IF  ITE1R-RA)  8.8.6  HR  39 

6 2P*Z«D?*0.2S  MR  AO 

CALL  Gm  (2P.G2R.G2tl  MR  Al 

2P*2.07*0.75  MR  A2 

CALL  GM  (2P.GaR.GaI  I MR  A3 

702R*  (T01R.D2O7*  (G2R.GAR)  1*0.5  MR  AA 

702Ip(T0II -020T* (621 *641 1 1*0.5  MR  A5 

711R*IA.O*T02R-TOIP|/7.0  MR  A6 

T11I*(A.O*702I-T01I)/3.0  MR  AT 

T20R* (16.0«T11R-710R)/15*0  MR  A8 

7201*116. 0*7111-71011/15.0  MR  A9 

CALL  7ES7  I711R.T20R.7E2R. TUI. 7201. TE2II  MR  50 

IF  (7E21-RA)  7.7. 1A  hr  51 

7 IF  (TE2B-RKI  9.9. 1A  MR  52 

8 S6R*S6b.T10R  MR  S3 

SGI»56I *7101  MR  5A 

N7*N7»2  MR  55 

GO  TO  |0  MR  56 

9 SGR*SGB.T20R  MR  57 

SGI* SGI* 7201  MR  58 

NT*NT«|  MR  59 

10  2*2*02  HR  60 

IF  I2-7ENO)  11.17.17  MR  61 

11  G|R*G5R  HR  62 

GII*G5I  MR  63 

IF  (NT -NTS)  1.12.12  MR  6A 

12  IF  (N5-NAI  1.1.13  MR  65 

13  NS*NS/2  MR  66 

NT*1  MR  67 

GO  TO  1 MR  68 

1A  NT  *0  MR  69 

IF  (NS-NMI  16.15.15  MR  70 

15  PRINT  IB.  7 MR  71 

GO  TO  9 MR  72 

16  NS*NS*2  MR  73 

D2»S/N5  MR  7A 

0207*07*0.5  MR  75 

G5R*G7P  MR  76 

G51*G3T  MR  77 

G3R*G2R  MR  76 

G3I*G2I  MR  79 

GO  TO  4 MR  80 

IT  CONTINUE  MR  81 
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SGP«SGR*RHfc».S 

H* 

*2 

$6!aSr»l«RH«*#S 

HM 

«3 

re  ruff** 

MK 

HA 

MK 

H5 

FORMAT  <2AH  STEP  SUE  LIMITEO  AT  /«.F10.5) 

MK 

H6 

END 

MK 

az< 

SURROUMNf  HFtO  (S.RH.ZP.HPS.MPr  .H«>*  ) 

HE 

1 

hF 

2 

CAICIH.4TES  h FICLO  OF  SINE  COSINE.  ANO  CONSTANT  C'-RRENT  OF 

SEGMENT  hF 

1 

Hf 

A 

COUPLE  « EJ.FJ»«*f*Bl.E*92.Tl  .T2.rONS.MPS.HPC.MPK 

hF 

S 

DATA  JL>'F  J.f  J*/6.2<OIAS30M%  ( 0 • « 1 • ) . (0.  .-6.2*3 18S3'i0)  / 

HE 

6 

IF  (Rh.lT.I .E-20)  no  TO  1 

Hf 

7 

Hf 

A 

OH»S».S 

HF 

9 

0«»TP*OH 

HE 

10 

CD*«COS lD«  ) 

H F 

11 

SOKaSlNlDF) 

Hf 

12 

Zl«ZP*OH 

he 

13 

72*ZO-n» 

HF 

]A 

91sS0RT(Rh?*/1«/1) 

hf 

IS 

R2*SQ»T 

Hf 

16 

E«Pl«CF<P(FjF*oi > 

he 

17 

E«B2*CF «PfF JK*R?» 

HE 

1* 

T1«/|*FMR1/R| 

HE 

19 

T2*Z2»r«R2/R2 

HE 

20 

nPS*CO»f  • If  MR2-EKR1 > -f  J*SD* • 1 72  *T  1 > 

HE 

21 

hPC»-S-)k*(£«P?.EKPI  )-r  j»COK«  (T2-T1  \ 

HE 

22 

CAll  mfk  (-Ok.Ok.wmMp.ZPMP.hkr.mku 

Hf 

23 

COnS*-F.I/(2.MP»WM| 

Mf 

2* 

MP<i*CONS#HPS 

Hf 

25 

HPC*COsS*HPC 

HE 

26 

mPk  *C*4PL * Chur *mk  1 > 

HF 

27 

RETURN 

HF 

2a 

mPS* ( 0 . » 0 ♦ ) 

Hf 

29 

HPC* ( 0 , .0  . ) 

Hf 

30 

hPK* ( 0 • *0 • 1 

Hf 

31 

RE  TURN 

HE 

32 

END 

HF 

33” 

SUBROUTINE  HINTG  < I I • JJ.G1 1 *G1 ?.G2l .G22. Ip) 

HI 

1 

Hi 

2 

COMPUTE  H FIELD  OUE  TO  A SINGLE  PATCH 

HI 

3 

Hi 

A 

COMMON  /DATA/  LD.N.NP.M.MP, A ( 10001 . V ( I 000 ) . Z (1 000 ) • S f ( I 000 » .8 f ( 100 

nr 

5 

10) .ALP ( 1000) .bet <1 000 ) • ICON 1< 1000) .ICOn2( 1000) • ITAG(IOOO) .MLAM.IPS 

Hi 

6 

2YM 

Hi 

7 

COMMON  /ANGL/  SALPilOOO) 

Hi 

0 

COMMON  /OATI/  T1XI.T  lvI.Tl?I«T?xI.T2Yl.T2ZI. 

XI.VI.7I 

Hi 

9 

DIMENSION  Tl«(|)-  T|II1I<  Tl? (1 ) • TJtlll.  TJYtll*  T22  < | > 

• SCI) 

HI 

10 

EOUlVAlENCE  (T1X.SI).  (TIT  .ALP)  . ( T 1 Z .BE  T ) . 

(T2X.IC0N1) . 

( T2V . ICON 

Hi 

11 

12).  (T27.ITAG).  (S.BIt 

Hi 

12 

COMPLEX  GAM.G<.GT.nZ.FlX.ElT.E17fE2A.F2T.F2Z.Gll*Gl2.G21 

•c.22 

HI 

13 

DATA  FoJ/1 2.56637061 6/ • TP I/6.2H31053O0/ 

HI 

16 

IE  (II.EO.JJ.ANO.IP.EO.I)  RETURN 

Hi 

IS 

REL*EL0AT(3-2*1P) 

Hi 

16 

j*lom-jj 

HI 

17 

RXxXI-k ( J> 

Hi 

18 

RY*Yf-VlJ> 

Hi 

19 

RZ*ZI-7CJ)»RFL 

Hi 

20 

RSO*RX»RX.RT«RV*RZ»RZ 

HI 

21 

RaSQRT (RSO) 

HI 

22 

RKs-TPT  «R 

Hi 

23 

C»*COS(RK) 

Hi 

26 

SR»SIN(RK) 

Hi 

25 

GAM*CCMPLX (CR.SR)*RA*CMPLX (SR.-CR) )/ (EPI*RS0«R)«S( J) 

Hi 

26 

gx«gam«rx 

Hi 

27 

gy*gam«ry 

Hi 

2a 

GZ*GAm«RZ 

Hi 

29 

T10X-T1X(J| 

Hi 

30 

T10Y*T1Y(J> 

HI 

31 

T10Z«T1Z(J)«RFL 

HI 

32 

T20K*T2A(JI 

Hi 

33 

T20Y*T?Y ( J) 

Hi 

36 

T20Z*T?Z( J)«RFL 

Hi 

35 

F 1 X»GV*T 1 07-G7M1 WY 

HI 

36 

F 1 Y*GZ*T 10X-GXM lQZ 

Hi 

37 

F1Z«G»«T10Y-GY*T10X 

HI 

39 

E2X*GvM20?-G?M20Y 

Hi 

39 

F2V«G7M2QX-GXM207 

HI 

AO 

F2Z*GlM20v-GrM2'l* 

Ml 

61 

GU«(T2XI*F|X.T2YI*F1Y*T2ZI*F1Z)«9FL^G11 

Hi 

62 

G12«(T?*l»F2X.T2YiaF2v.T2Zl*F27|*RFL*Gl2 

Hi 

63 

G2 1 ■ < T 1 X I »F 1 1 • T 1 Y 1 »E l V • T 1 Z I *F 1 7 ) •RFL  *62 1 

Hi 

A6 

G22*(T1XI*F2X.T1YMF2y*TWI*F27)*RFL*G22 

Hi 

65 

RETURN 

Hi 

66 

END 

Hi 

A7- 

SUBROUTINE  HM AT  (IM1.IM2.CM.NR0M*NC0L) 

HM 

1 

HM 

2 

HMAT  FILLS  TMf  MATRIX  ELEMENTS  REPRESENTING 

THE  M FIELD 

ON  PATCHES 

HM 

3 

Ouf  TO  SURFACE  CURRENTS  ON  OTnrj  PATCHES 

HM 

A 

151 


c 


HM  17 


* 


DMA  Tp/6.2A31053O0/ 


RFl*Fl0AT(3-2MP) 

HM 

IB 

7J*ZT«uFL 

HM 

19 

SALPJ*SALPT*«rt 

HM 

20 

!LC*LO» 1-IPATCM 

HM 

21 

XO  = XS<  RC>  -XJ 

HM 

22 

VO*YS(ILC)-Y J 

HM 

23 

>0«ZS(  TLO-ZJ 

HM 

24 

ZP  = X0*CA8J*Y0*SAB  J*Z0*SALPJ 

HM 

2S 

RHX«XO-CARJ*?P 

HM 

?fc 

RMY= YO-SAB J»ZP 

HM 

27 

RH/»ZD-SALPJ«7P 

HM 

20 

RH*SO»T (PMK»RMX •Pmy*PHY«Ph7*Mm/| 

HM 

29 

IF  (PH.LT.l.E-20)  r,0  TO  3 

HM 

30 

RHX*RHX /RM 

HM 

31 

MHYaRnY/PM 

HM 

32 

RH7*RHZ/RH 

HM 

33 

PX*SAB  J«RHZ-SALPJ»WHY 

HM 

34 

py*s*lpj*»hx-cabj*»hz 

HM 

35 

PZ *C AH j»RH Y-S AH J»RhX 

HM 

36 

R2»XD«xD*VD»YrW0«70 

HM 

37 

R=SQRT (R2  > 

HM 

30 

IF  (R.GT.PKHI  GO  TO  ? 

HM 

39 

iflg*i 

HM 

40 

call  mfld  CSJ.HH*7P*HPS*HPC*HP*>  ) 

HM 

41 

hps*hps«rfl 

HM 

42 

HPC*HPr«PFL 

HM 

43 

HPKaHPK  *rfl 

HM 

44 

cl*tp»oil 

HM 

45 

CK«TP*OIK 

HM 

<♦6 

SlNL*STN (CL  * 

HM 

47 

C0SL*COS(CL) 

HM 

40 

S I NK  *S  I N ( CK ) 

HM 

*»9 

COSK*CPS (CK ) 

HM 

50 

SILK*SIN(CL*CK> 

HM 

51 

CONS*S I NL ♦SINK-SILK 

HM 

52 

DO  l K*l,2 

HM 

53 

IF  (K.F0.1)  P0T*PX»T2x ( ILC) ♦PY»T2Y ( IlC) ♦PZ#T27 ( ILC ) 

HM 

54 

IF  (K.EQ.2)  PnTaPx»Tlx(lLC)*PY*TlY(lLC)*PZ*TlZ(lLC» 

HM 

55 

PDT*POT«SALPULC» 

HM 

56 

MSOT*-hPS*POT 

HM 

57 

hcdt»-hpc«pdt 

HM 

50 

HKDT*-HPK  *PDT 

HM 

59 

TMHR(l.K)s(SlNK*Rf AL(mkOT) ♦ (COSK-1 . ) *REAL (HSDT»-STNK*REAL (HC0T1 >/c 

HM 

60 

10NS*TmhR(1.K) 

HM 

61 

TMHl ( 1 ,K) s(SINK*AIMAG(HKOT ) ♦ ( COSK- 1 . ) • A I MAG ( HSDT ) -S INK»A INAG ( MCDT > 

HM 

62 

1)/C0NS*TMHI(1.K) 

HM 

63 

TWHR(2.K)*(-S/LK»PEAL (MKDT ) ♦ (COSL-COSK ) •RE AL (HSDT ) ♦ (SINL*SINK ) »REA 

HM 

64 

lL(HCOT»  >/CONS*TMHR<2.k> 

HM 

65 

TMHl  (?.K)*(-SILK«AIHAr,(MKDT)  ♦ (CoSL-COSK  ) *A  I MAG  (HSOT  > ♦ (S  INl*S  INK  > *A 

HM 

66 

llHAG(HCDT) >/CONS*TMMl <2.K) 

HM 

67 

TMMR (3.K 1 * <SlNL»«E AL (hKDT ) ♦ ( 1 .-COSL ) »REAL (MSOT  > -STNL*REAL (HCOT  ) ) /C 

HM 

66 

10NS*TMmR(3.K> 

HM 

69 

TMHl  (3.K>*(SINL*MMAG(HK0T)  ♦ (1.-C0SU*AINAG(HSDT»-SINL»AIMAG(HCDT1 

HM 

70 

1)/CONS*TmmI (3.K) 

HM 

71 

1 

CONTINUE 

HM 

72 

RETURN 

HM 

73 

2 

CALL  APRXH  (R«R?»SjtT P *PH/R  «TwhP.TwHI.1LC.PX*PY*P7«RFL) 

HM 

74 

RETURN 

HM 

75 

3 

IF  (ZP.LT.l.E-20)  GO  TO  4 

HM 

76 

RETURN 

HM 

77 

4 

print  s 

HM 

78 

STOP 

HM 

79 

C 

HM 

60 

5 

FORMAT  (46H  H FIELD  At  SOURCE  POINT  IS  UNOEF InED  IN  HMMAT) 

HM 

61 

END 

HM 

62* 

SUBROUTINE  INTO  (B.S«OM. ZP .01 J,niR«ETR *ET I *0 IL ♦OI* . I J* IP  I 

IG 

1 

C 

IG 

2 

C 

intg  computes  three  complex  field  components  that  multiply  the 

IG 

3 

C 

THREE  SEGMENT  CURRFNTs  USED  IN  INTERPOLATING  OVER  A SEGMENT. 

IG 

4 

C 

THESE  COMPONENTS.  ETR  AND  FT  I,  GO  INTO  THE  INTERACTION  MATRIX. 

IG 

5 

C 

IG 

6 

DIMENSION  ETR ( 3) • E T I (31 

IG 

7 

OATA  TP/6. 203165308/ 

IG 

0 

C 

IG 

9 

C 

COMPUTE  TANGENTIAL  FIELD  ON  OBSERVATION  SEGMENT  OnE  TO  SINE. 

IG 

10 

C 

COSINE.  AND  CONSTANT  CURRENTS  ON  SOURCE  SEGMENT. 

IG 

11 

C 

IG 

12 

CALL  EFLD  (B.S.RM.ZP.IJ.EZrS.EZTS.ERRS.ERIS.EZRC*EZIC.ERRC.ERIC*EZ 

IG 

13 

IRK.EZIK,ERRK*ERIK» 

IG 

14 

IF  (IP.NE.2)  GO  TO  I 

IG 

IS 

CALL  ON  (EZRS.EZIS.ERPS.ERIS) 

IG 

16 

CALL  GN  (E7RC.EZIC*ERPC.£M!C) 

IG 

17 

CALL  GN  (E2RK.EZlK.ERRK.ERtK) 

IG 

16 

1 

ETRS*E7RS*DT  J*ERMS*0IR 

IG 

19 

ETIS*E7IS*0I J*ERlS*OlQ 

IG 

20 

ETRC*E7RC*DI J*ERRC*OIo 

IG 

21 

ETIC*E7lC#Dl J*£RIC*OlP 

IG 

22 

ETRK*E7RK«Ol J*£RRK«DIR 

IG 

23 

ETIK*E7IK»DI J*£RlK»DlP 

IG 

2* 

c 

IG 

25 

C 

COMPUTr  INTERPOLATION  COEFFICIENTS  AN0  FOPM  THE  COEFFICIENTS  Of 

IG 

26 

C 

THE  TMREF  SEGmFNT  CURRENTS  USED  IN  CURRENT  INTERPOLATION. 

IG 

2? 

c 

IG 

26 

CL*TP»DTL 

H 

29 

CK*TP*DIK 

VG 

30 
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S|NL»SIN(CL> 

IG 

31 

C0SL-COS«CL» 

IG 

32 

S!NK«SIN(CO 

IG 

33 

cosk«cos<cf) 

IG 

34* 

SIl*»S!N(Cl*CK) 

IG 

35 

CONS*SINL*SlN«-SlLK 

IG 

36 

CTR<  1 1 «4S!NK«ETRK* (COSK-1 .) 'ETRS'S INKJET RC) /CONS’ETR ( 1 > 

IG 

37 

ETUI  >»(SlN«*En«*l COS*-]  .)«E  TlS~S!NK*FUC)/CON$*f  T!  (11 

IG 

38 

f TR(2) « I-SIL*»ETRK* 4CoSL-C0SK)»FTRS* ( S INL«SINK ) •£ TRC > /CONS*C TR (?) 

IG 

39 

CT 1 <2>«(-SlL«*CTIi(*  (C0SL-C0S*)*FT IS* ( S INL*SINK)  «£T IC ) /CONS*CT ! t 2) 

16 

40 

ETR<  3) »(SINL*FTRK« ( 1.-C0SL) •ETRS~SINL*ETRC)/CONS*f TRI3) 

IG 

41 

ct  1 1 3 > x <siNL*m**<  i.-cosL)*cns«.siKL#erici/coMS*rr  roi 

IG 

4? 

RE  TURN 

IG 

43 

£N0 

IG 

44* 

SUBROUTINE  I NT  X (£tl*FL2*ei«I  J.SGR.SG  I ) 

I* 

I 

C 

I* 

2 

C 

I NT*  PFRFORN S NUMERICAL  INTEGRATION  OF  £XP(J#R)/R 

HT  ThE  NETHOO  OF 

I* 

3 

C 

VARIABLE  INTERVAL  «!Gth  ROMBERG  INTEGRATION.  Th£ 

intcgrano  value 

u 

4 

C 

IS  SUPPLIED  By  SUBROUT  INF  OF. 

IK 

5 

c 

1* 

6 

OAT A N* *NM* NTS • RX / 1 *6SS 36*4*1 «F -4/ 

IK 

7 

Z*f  L 1 

IK 

0 

7E«£L2 

IK 

9 

IF  UJ.EQ.O)  7E*0. 

IK 

10 

S*?E*Z 

IK 

11 

FNMsNM 

!■ 

12 

EP*S/ « 10. •FN*) 

IK 

13 

ZENO*7F-£P 

IK 

14 

SGRaO. 

IK 

15 

SGI«0. 

I* 

16 

NS*NX 

IK 

17 

NT  *0 

IK 

18 

CALL  GF  (?«G1R«G1 I ) 

IK 

19 

1 

FNS»NS 

IK 

20 

D?*S/FnS 

IK 

21 

OZOT  *07* .5 

IK 

22 

ZP*Z*07 

IK 

23 

IF  ( ZP- ZE 1 3*3*? 

IK 

24 

2 

DZ*ZE-7 

IX 

25 

IF  (ABc(OZl-EP)  17,17,3 

IK 

26 

3 

ZP*Z*OZOT 

IK 

27 

CALL  GF  ( ZP*G3R ,G3I ) 

IK 

28 

ZP-Z* 07 

IK 

29 

CALL  GF  <ZP.G5R.G5n 

IX 

30 

4 

TOOR*(G1R*G5RI*OZOT 

IX 

31 

T 00 !■ (G1 1 *G5I ) *OZOT 

IK 

32 

TOlRalTOOR*DZ*G3R)«O.S 

IK 

33 

T01I*(T00I*0Z«G3I)*0.5 

IK 

34 

T10R«(4.0»T0lP*T00R)/3.0 

IX 

35 

TlOIa(4.0*T01I-TOOI>/3.0 

IK 

36 

c 

IX 

37 

c 

TEST  CONVERGENCE  OF  3 POINT  ROMBERG  RESULT. 

IK 

38 

c 

IK 

39 

CALL  TEST  (TOIR.TIOR.TEIR.TOII.TIOI.TEII) 

I* 

40 

IF  (TE1I*RX>  5,5.6 

IK 

41 

5 

IF  ( TE 1 R»RX ) 0,8.6 

IX 

42 

6 

ZP«Z*07«0.2S 

IX 

43 

CALL  GF  (ZP*G?P,G2ri 

IX 

44 

ZP*Z*07*0 • 75 

IX 

45 

CALL  GF  (ZP,G«.R.G4I) 

IX 

46 

TO?R*(T01R*OZOT*(G2R*G4R) )*0.5 

IX 

47 

TO?I*(T01I.OZOT»(G2I*G4I> )«0.5 

IX 

48 

TURa(4.0*T02R-T0lR)/3.0 

IX 

49 

TiU*(4.0«T02I-T01I>/3.0 

IX 

50 

T20R*( I6,0*TI IR-TJOP) /15.0 

IX 

51 

T20I«(16.0*T11I-T10I) /15.0 

IX 

52 

C 

IX 

53 

C 

TEST  CONVERGENCE  OF  5 POINT  ROMBERG  RESULT. 

IX 

54 

C 

IX 

55 

CALL  TEST  (T11R.T20R.TE2R.T111.T20I.TE2I) 

IX 

56 

IF  (TE2I-RX)  7,7.14 

IX 

57 

7 

IF  (TC2R-RK)  9,9.14 

IX 

56 

8 

SGR«SGR*T10R 

IX 

59 

SGI *SGI *T 1 0 I 

IX 

60 

NT«NT*? 

IX 

61 

GO  TO  10 

IX 

62 

9 

SGR*SGR*T20R 

l* 

63 

SGI "SG! *T20 I 

IX 

64 

nt«nt. i 

IX 

65 

10 

Za?*07 

IK 

66 

IF  (Z-7ENO)  11.17.17 

IK 

67 

11 

G1R>G5R 

IX 

68 

G1I-G5I 

IX 

69 

IF  (NT-NTS)  1.12*12 

IX 

70 

12 

IF  (NS-NX)  1*1,13 

IX 

71 

C 

IX 

72 

c 

OOUfiLE  STEP  SIZE 

IX 

73 

c 

IX 

74 

13 

NS*NS/2 

IX 

75 

NT«1 

IX 

76 

GO  TO  1 

IX 

77 

14 

NT  *0 

IX 

78 

IF  (NS-NMI  16,15*14 

IX 

79 

15 

PRINT  20*  7 

IX 

80 

GO  TO  9 

IX 

81 

C 

IX 

82 
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c 

HAL VC  STEP  S17E 

I* 

83 

c 

I* 

H<* 

*6 

NS*NS».» 

I* 

ft  S 

FNS»NS 

I* 

86 

07=s/Fns 

I* 

6? 

O70T«Q7«0.S 

I* 

88 

G5U«G 3e 

I« 

89 

65  1*611 

IK 

40 

G)R<07u 

IK 

41 

G3!»G/l 

M 

42 

GO  TO  - 

IK 

93 

\y 

CONTINUE 

IK 

94 

if  (in  i*. i«. in 

IK 

95 

c 

I* 

96 

c 

400  CONTRIBUTION  of  NFAH  SINGUI  AMITY  F0M  01 AGONAL  TERM 

1 K 

97 

c 

IK 

98 

IB 

SGP»2.« ISGR*ALOG<  <SQWT  (b«H*S»S>  *5) /H)  ) 

IK 

99 

SGI«2.*SG! 

IK 

)00 

19 

CONTINUE 

IK 

101 

RE  TURN 

IK 

102 

r 

IK 

103 

20 

F OWN  A f <?<.*  STEP  S12E  LIMJTEO  AT  Z*.E1J.S) 

I* 

109 

END 

IK 

105- 

FUNCTION  I SEGNO  UTAGf.MX) 

IS 

1 

C 

IS 

2 

C 

I SEGNO  RETURNS  TNf  SEGMENT  NUM»FR  OF  THE  MTh  SEGMENT  h4v  I NO  THE 

IS 

3 

C 

TAG  NU*«EP  I T AG I • IF  ITAGJ*0  sFGMENT  NUM«FB  M IS  RETURNED. 

IS 

4 

c 

IS 

5 

COHMON  /OAT  A/  LO»N*NP.M#MP,X( lo00»  «T  UOOOI • 2 < 1 000 ) • S I < 1 000 ) *8 1 1 1 00 

IS 

6 

101  . ALP  < 1000  i * 9E  T 1 1000)  .ICONl  11 000)  • ICON2(  1000)  . IT  AG  (1000)  *4LAm.  IPS 

IS 

7 

2vm 

IS 

6 

IF  ( M X . Ci T e 0 1 GO  TO  1 

IS 

9 

PRINT  4 

IS 

10 

STOP 

IS 

11 

1 

!CNT*0 

IS 

12 

IF  flTAGl.NE.O)  GO  TO  2 

IS 

13 

ISFGNOsMX 

rs 

14 

RETURN 

IS 

IS 

2 

IF  (N.LT.l)  GO  TO  4 

IS 

16 

00  3 1 = 1 .N 

IS 

17 

IF  <ITAG<I).NE.!TAGI>  GO  TO  3 

IS 

18 

1 CNT * ICNT  » 1 

IS 

19 

IF  (ICnT.EO.MX)  go  to  s 

IS 

20 

3 

continue 

IS 

21 

4 

PRINT  7,  ITAGI 

IS 

22 

STOP 

IS 

23 

5 

I SEGNO* I 

IS 

24 

RETU»N 

IS 

25 

C 

IS 

26 

6 

FOPMAT  (4K.91HCHEO'  DATA.  PARAMETER  SPECIFYING  SEGMENT  POSITION  IN 

IS 

27 

l A GROUP  OF  EQUAL  TAGS  MUST  NOT  BE  ZERO) 

IS 

28 

7 

format  <///.  iok««?6nno  segment  HAS  an  itag  OF  • IS ) 

IS 

29 

ENQ 

IS 

30- 

SUBROUTINE  JMELS  <E T« .ET I .NCP. JO *NCM, JM. I .CM* NROX.NCOL ) 

JM 

1 

C 

JM 

2 

c 

JNELS  SUMS  TMF  CONTRIBUTIONS  TO  THF  MATRIX  ELEMENTS  FOR  SEGMENTS 

JM 

3 

c 

CONNECTED  TO  JUNCTION*:  OF  THREE  OR  mq«E  SEGMENTS 

JM 

4 

c 

JM 

S 

COMMON  /DATA/  L0*NtNP.M,MP,X(l0001  • V < 1000 1 • l (1000) «S|(| 0001  •«! 1 100 

JM 

6 

10>  ♦ ALP  < 1000  ) • Rf.TI  1000)  • ICONl  ( 1 000 > . 1 CON2  « 1 000 ) • I T AG < 1000  > .ML AM.  IPS 

JM 

7 

2 YM 

JM 

8 

0 1 ME  NS I ON  CM(NRO*.NCOL) 

JM 

9 

DIMENSION  JP<?5I«  JM<?5> 

JM 

10 

COMPLEX  CM 

JM 

11 

c 

STATEMENT  FUNCTION  TO  CALCULATE  MATR IK  LOCATION 

JM 

12 

JL  (Kl  *<  (Tf-ll/NP) 

JM 

13 

IF  INCP.LT. I)  GO  TO  2 

JM 

14 

DO  1 JM.NCP 

JM 

IS 

JPJ»JL IjP(J)) 

JM 

16 

1 

CMI JPJ.!)*CM( JPJ.I)*CMPLKIETR.FTI) 

JM 

17 

2 

CONTINUE 

JM 

18 

IF  (NCM.LT. 11  GO  TO  4 

JM 

19 

DO  3 J*1*NCM 

JM 

20 

JMJ*JL(JM(JI  1 

JM 

21 

3 

CM(  JMJ.paCMI  JMJ*!)-C-PLKIETR.FTI) 

JM 

22 

4 

CONTINUE 

JM 

23 

RETURN 

JM 

24 

ENO 

JM 

25- 

SUBPOUT  f NC  JUNC  <J. JNO.NCI.NSEgI«NC2.NS£G2*<?T 

JU 

1 

C 

JU 

2 

C 

JIJNC  SEARCHES  CONNECTION  DATA  ARRAYS  ICONl  ANO  ICON?  TO  FINO  ALL 

JU 

3 

C 

CONNECTEO  SEGMENTS  AT  A MULTIPLE  JUNCTION. 

JU 

4 

c 

JU 

s 

COMMON  /DATA/  LD*N*NP.M«MP.X(  1000) «Y  U 000 ) . Z U 000 ) . $ I < 1 000 1 . 8 f < 1 00 

JU 

6 

10) .ALP » 1000) •BET! 1000) • ICONl <1000 ) • ICON2 (1 000 ) . I T AG ( 1 000 ) .ML AM. IPS 

JU 

7 

2 YM 

JU 

8 

DIMENSION  NSEG1I2S)*  NSEG2I25) 

JU 

9 

NC!*0 

JU 

10 

NC2  = 0 

JU 

11 

SNCaO.O 

JU 

12 
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3 


00  % I * 1 • N 

JU 

13 

IF  (ICOMlII-JNOi  2.1.2 

JU 

1* 

1 

IF  (I.fQ.J)  GO  TO  2 

JU 

IS 

NCl-NCl • 1 

JU 

16 

IF  <NCi.GT.?$)  60  TO  S 

JU 

17 

NSfGl (NCI I ■ I 

JU 

18 

SNC*SNC  *S I (I) 

JU 

1 9 

2 

IF  1 IC0N?<  I I-  JSOI  «•)•<> 

JU 

20 

5 

IF  < I • f 0 . j 1 GO  ro  * 

JU 

21 

NC?»NC? • 1 

JU 

22 

IF  (NC?,6T.2S>  60  TO  K 

JU 

23 

NS£G2(NC2>  «I 

JU 

2* 

SNC*SNC • S I 1 I ) 

JU 

25 

6 

continue 

JU 

26 

FC«NC1*NC2 

JU 

27 

0»(S! ( J)  *SNC/FC)/?.0 

JU 

28 

RETURN 

JU 

29 

5 

PRINT  6*  JNO 

JU 

30 

STOP 

JU 

31 

C 

JU 

32 

6 

FORMAT  <41M  ERROR  - TOO  M ANT  CONNECTIONS  TO  JUNCTION* 16) 

JU 

33 

ENO 

JU 

3*. 

SUBROUTINE  LFACTR  ( A . J&0«  . NCOl  , I A 1 ♦ l A 2 . IP  ) 

LF 

1 

C 

Lf 

2 

C 

LFACTR  PERFORMS  GAuSS-OOOLITTLE  MANIPULATIONS 

ON  THE  T «0  BLOCKS  OF 

LF 

3 

C 

The  TRANSPOSED  MATRIX  IN  CORE  STORAGE.  ThE  GAUSS-DOOL IT TLE 

LF 

6 

C 

ALGORITHM  IS  PRESENTED  ON  PAGES  <*11-616  OF  A. 

RALSTON  — A FIRST 

LF 

5 

c 

COURSF  IN  NUMERICAL  ANALYSIS.  COMMENTS  B£LO« 

REFER  TO  COMMENTS  IN 

lf 

6 

c 

RALSTONS  TEAT. 

lf 

7 

c 

LF 

8 

COMMON  /MATPAR/  I CASE .N8L0KS « NPRL* • NL  AST • NBLS YM.NPSTM *NLS TM 

LF 

9 

COMMON  /SCWATM/  OllSOO) 

LF 

10 

01  ME NS TON  A1NR0M.NC0L) • IP(NROM) 

LF 

11 

COMPLE  * A *0  * A JR 

LF 

12 

INTEGER  R.R1 .02.Pj.PR 

LF 

13 

LOGICAL  L 1 *L2«L  3 

LF 

16 

IFL6»0 

LF 

15 

c 

lf 

16 

c 

INITIAi  I2E  R1.R2*J1*J? 

lf 

17 

c 

LF 

18 

Ll'lAl.EO.l .AN0.IA2.E0.2 

LF 

19 

l2»( IA?-1 » .E0.IA1 

LF 

20 

L3«IA2.EO.N0LOMS 

LF 

21 

IF  IL1»  GO  TO  1 

LF 

22 

GO  TO  2 

LF 

23 

I 

RI«1 

LF 

24 

R2«2*NPBL* 

LF 

25 

J»«l 

LF 

26 

J2*-l 

LF 

27 

00  TO  S 

LF 

28 

2 

Rl^NPBL A*1 

LF 

29 

R2»2»NPRL*< 

LF 

30 

Jl*( 1*1-1  > •NPHIKM 

LF 

31 

TF  <L2)  GO  TO  3 

LF 

32 

60  TO  6 

LF 

33 

3 

J2* Jl ♦NPBLA-2 

LF 

36 

GO  TO  S 

lf 

35 

6 

J2= Jl ♦NPBLK- 1 

LF 

36 

5 

IF  (L3>  R2=NPflLK*NLAST 

LF 

37 

00  16  OsPl.P2 

LF 

38 

C 

LF 

39 

C 

STEP  1 

LF 

60 

C 

LF 

41 

00  6 K* Jl • NROw 

LF 

42 

0 ( K ) >A ( * «P ) 

LF 

43 

6 

CONTINUE 

LF 

46 

C 

LF 

45 

C 

STEPS  ? AND  3 

LF 

46 

C 

LF 

67 

IF  (LI .0P.L2  ) J2*J2*1 

LF 

68 

IF  IJ1.GT.J2)  GO  TO  9 

LF 

69 

I*J*0 

LF 

50 

00  8 J* Jl • J2 

LF 

51 

I * J* 1 * J • I 

LF 

52 

PJ*IP( J) 

LF 

53 

AJpsD(PJ) 

lf 

54 

A( J.RlsAJR 

LF 

55 

0(PJ>*0( J) 

LF 

56 

JP1*J*1 

LF 

57 

00  7 I.JPl.NPOrf 

LF 

58 

0(I)*0(I)-A(1,IaJ)»AJR 

LF 

59 

7 

CONTINUE 

LF 

60 

8 

CONTINUE 

LF 

61 

9 

CONTINUE 

LF 

62 

C 

LF 

63 

C 

STEP  6 

LF 

64 

C 

LF 

65 

J2Pl*J2*l 

LF 

66 

IF  (L1.0P.L2)  GO  TO  11 

LF 

67 

IF  (NPOM.LT. J2P1 ) 60  TO  16 

LF 

68 

00  10  (>J2P1.NR0M 

LF 

69 

A ( I « P) «0 ( I ) 

LF 

70 

10 

CONTINUE 

LF 

71 

60  TO  16 

LF 

72 

11 

OMAA-Rf AL(0( J?P1 >»CON jG<0( J2P1 ) ) ) 

LF 

73 

I P ( J2P1 ) * J?Pl 

LF 

74 
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J2P2*  12  *2 

LF 

75 

IF  C J2P2.GT.NROM)  GO  TO  13 

LF 

76 

00  \2  f*J2P2»NR0 M 

LF 

77 

F L maG*we  At  (Od)«CONJGtO:l)  ) > 

LF 

78 

IP  (FI  “*0. 1 T. 0*440  GO  To  1? 

LF 

79 

OMAJOFi  *4*0 

lf 

80 

|P( J2P1 ) *1 

LF 

61 

1? 

CONT  INijF 

LF 

62 

1 3 

CONTI  Si  iF 

Lf 

8 J 

IF  (Oma<.LT.1 .E-lO)  IFLG=1 

LF 

84 

P»*IP(  l?Pl  ) 

LF 

85 

*1 J?P1.B»*0|PP» 

LF 

86 

D(PR) sO|J?P| ) 

LF 

87 

r 

IF 

88 

r 

STEP  S 

LF 

89 

c 

LF 

90 

IF  « J2P2.GT  .NROa)  GO  TO  IS 

LF 

91 

A JR*1 ,/hi J2P1 .R) 

IF 

92 

00  |4  I *J?P«>.*4P0* 

LF 

93 

A ( I .0)  =0(  I ) *A  IP 

LF 

94 

COST  IN< IF 

LF 

95 

is 

CONTINUE 

LF 

96 

IF  (IFLr..FO.0>  GO  TO  1* 

Lf 

97 

PP I NT  17*  J2.0MA* 

LF 

98 

!FLG*0 

LF 

99 

16 

CONTINUE 

LF 

100 

»ETU»N 

LF 

101 

c 

LF 

102 

17 

format  <ih  ,6h*>i*oi  (•  r 

LF 

103 

ENO 

LF 

104- 

SUBROUTINE  LOAD  (LOTYP.lOTAG*LDT  A OF  .LOT  AGT • ZL&  * ZL I . ZLC .NLOAD) 

LO 

1 

C 

LO 

2 

c 

LOAO  CALCULATrs  r«F  I-PEOAnCE  OF  SPECIFIED  SEGMENTS  FOP  VARIOUS 

LO 

3 

c 

TYPES  OF  LO'-OTNG 

LO 

4 

c 

LO 

5 

COMMON  /DATA  LO.N.NP.M.MP.XdOOO)  .V(1000)  .7(1000).SI  (1000)  .BK100 

LO 

6 

10)  .ALP(  1000)  t RET  ( 1000)  • ICONl  < 1 000  ) . I C0N2  (1 000 ) . I T AC,  ( 1 000  ) . ML  AM.  IPS 

LO 

7 

2 YM 

LO 

8 

COMMON  /2L0A0/  ZAPPA Y f 1 000 ) 

LO 

9 

DIMENSION  LOTYP(l).  LDTAG ( 1 ) • LOTAGF(l).  LOT AGT ( 1 ) • ZLPI1).  ZLl(l) 

LO 

10 

1.  ZLC(l) 

LO 

11 

COMPLE » ZARRAY.7T.TPCj.ZINT 

LO 

12 

DATA  TPCJ/(0..1.8R36S371E*9)/ 

LO 

13 

r 

LO 

14 

c 

PPTN J «€ADING 

LO 

15 

c 

LO 

16 

PRINT  23 

LO 

17 

c 

LO 

18 

c 

INITIAI  IZE  0 ARRAY.  UGEO  FOR  TEMPORARY  STORAGE  OF  LOAOING 

LO 

19 

c 

information. 

LO 

20 

c 

LO 

21 

00  1 1*1. N 

LO 

22 

l 

Z ARRAY (1)*(0.«0.) 

LO 

23 

IMARN*0 

LO 

24 

c 

LO 

25 

c 

cycle  over  loading  cards 

LO 

26 

c 

10 

27 

istep*^ 

LO 

28 

? 

I STEP* I STEP* 1 

LO 

29 

IF  1 ISTEP.LE.NLOAO)  GO  TO  1 

LO 

30 

IF  (IwARN.EO.l)  PRINT  24 

LO 

31 

RETURN 

LO 

32 

1 

IF  (LDTVPdSTFPl.LF.S)  GO  TO  4 

LO 

33 

PRINT  ?5.  LOTYP(ISTEP) 

LO 

34 

STOP 

LO 

35 

4 

LDTAGS*LOTAG(ISTEP) 

LO 

36 

JUMP*LDTYP(ISTEP)*1 

LO 

37 

10**0 

LO 

38 

c 

LO 

39 

c 

SEARCH  SEGMENTS  FOP  PROPER  I TAOS 

LO 

40 

c 

LO 

41 

L 1 = 1 

LO 

42 

L ?*N 

LO 

43 

IF  (LOTAGS.NE.O)  GO  TO  5 

LO 

44 

IF  (LOT AGE ( I STEP) .E 0.9 .AND .LOT AGT (ISTEP).EO.O)  GO  TO 

S 

LO 

45 

L1*L0T  AGE ( ISTFP) 

LO 

46 

L2*L0TAGT(ISTEP) 

LO 

47 

5 

00  IS  I*LI.L2 

LO 

48 

IF  (LOTAGS.EO.O)  GO  To  6 

LO 

49 

IF  (LOT  AGS.NE • IT  AG ( I ) ) GO  TO  IS 

LO 

50 

IF  (LOTAGF(ISTEP) .FO.O)  GO  TO  6 

LO 

51 

ICMK*ICMK*1 

LO 

52 

IF  ( ICmk.GE.LDTAGFi I STEP) .AND. Iohk.lE.LOTAGT ( I STEP) ) 

GO  TO  7 

LO 

S3 

GO  TO  15 

LO 

54 

6 

ICMK*1 

LO 

55 

C 

LO 

56 

C 

CALCULATION  OF  LAM0A»IMPEO.  PE»  UNIT  LENGTH.  JUMP  TO 

appropriate 

LO 

57 

C 

SECTION  FOR  LOADING  TyPE 

LO 

58 

C 

LO 

59 

7 

GO  TO  (8.9. 10.11. 12. n>.  JUMP 

LO 

60 

A 

ZWLR(ISTEP)/SI(I)*TPCJ«7LIIISTEP)/(SI(I1*MLAM) 

LO 

61 

IF  (ARS(ZLCdSTEP)  ) .GT.l.E-20)  7T*7T  *«LAM/ (TPCJ*SI  ( I » 

•ZLCdSTEP)  ) 

10 

62 

GO  TO  14 

LO 

63 

9 

7T*TPC  )«SI (I)»ZLC(ISTfP)/mlAR 

LO 

64 

IF  (ARS(ZL!dSTFP)).GT.l.E-20)  7T*7T*SI  (I)  •ML AM/  ( TPCj 

i*7Ll  (ISTFP)  ) 

LO 

65 

IF  (ARS(ZLPdSTEP)  > .GT.l.E-20)  7T  *7T  *S  I (I ) /ZLR  ( ISTFP) 

LO 

66 

« 
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2T«1./?T 

LO 

67 

GO  TO  1ft 

LO 

68 

10 

Z7*7L f>'  1ST if>\  •*LA*»lF>CJ»Zll  tlSTFPi 

LO 

69 

I f (ABS(7i_C  ( ISTFP)  > .OT.l  .f-20)  xT=7T . 1 ./  (TPCj«SI  1 I >«SI ( I > #7LC  ( ISTE 

LO 

70 

IP)  ) 

LO 

71 

00  TO  )ft 

LO 

72 

11 

ZT«TPCj«sn  1 1 *sn  n •zlcustepi 

LO 

73 

ir  (ABS(7LI < ISTfP) ) .61 . 1 .£-20)  7T*?I*1./1TPCJ«ZL! < ISTEP)) 

LO 

7ft 

If  (AH';  < ZLR  ( ISff**)  ) .07 . 1 . E -20 ) /T*?T  *1  ./ (7L«UbTEP) 

LO 

?5 

Z T* l*/7  T 

LO 

76 

GO  TO  1ft 

LO 

77 

12 

7T=CHPi » (ZLR  ( ISTfP)  .Zt  I ( ISTEPI ) /SI ( l ) 

LO 

78 

00  TO 

LO 

79 

13 

ZWlNT  (ZLR(  ISTEP)  •wlAM.BI  ( l>  I 

LO 

60 

I* 

If  1 <4»S  ( Rf  AL  ( Z ARBA  tilHI  •AU*(A’»AG(/AP»Ar  ( I > > > > «OT  . 1 .f  -20) 

JWARN* 

LO 

61 

1 1 

LO 

82 

ZAQHAY (l)*/AMPAY<I»*ZT 

LO 

83 

lb 

CONTINUE 

LO 

0ft 

ir  ( ICMK.Nf  .0)  GO  TO  |ft 

LO 

es 

PRINT  5ft.  LDTAGS 

LO 

86 

STOP 

LO 

87 

c 

LO 

88 

c 

POINTING  THE  SfGMf NT  lOADlNO  OATA.  JUmP  TO  PROPER  PRINT 

LO 

89 

c 

LO 

90 

1ft 

GO  TO  ( 1 7.  16. 19,20,21 .2?)  • JUMP 

LO 

91 

17 

CALL  PPST  (L D T AGS , l DT aGF ( I‘  TEp ) .LOT AGT ( I STE P > • ZL R ( 1 S I EP > . ZL I ( J STE P 

LO 

92 

11  ./LCd  STEP)  .0**0.  »0..7rt  SERIES.  7 » 

LO 

93 

GO  TO  2 

LO 

9ft 

1« 

CALL  PONT  (LOT AGS. LOT AGE  ( I S T € ° ) . L )T AGT ( I ST F ° ) . ZLR ( I S T £P ) . ZL I ( I STE P 

LO 

95 

11  .ZLCTfSTFP) .0. .0. ,0. .SHPApALLEl  .8) 

LO 

96 

GO  TO  ? 

LO 

97 

1^ 

CAlL  PONT  (LOT  AGS. LOT  AGE ( I STEP) .LOT AGT ( I STEP ) . ZLR ( I ST EP ) . ZL I ( I STEP 

LO 

98 

1 I .7LC<  ISTEP)  .O..0..0*.  lBhSfHltS  (PER  MET£«)*18) 

LO 

99 

GO  TO  2 

LO 

100 

?0 

CALL  PONT  (LOT AGS. LOT  AGE ( I S TEP ) .LOT AGT ( 1 STE P ) . ZL» ( I ST E P ) . ZL ! ( 1 STEP 

LO 

101 

1>*ZLC(TST£P),0..0..0..^0mpaPALLFL  <PE°  METEP)*20) 

LO 

102 

GO  TO  ? 

LO 

103 

?1 

LO 

10ft 

17LI < ISTEP) .0. . 15HF [A£r  IMPfOANCE • IS) 

LO 

I 05 

GO  TO  2 

LO 

106 

22 

CALL  PRNT  (LOTAGS.LOTaGE (ISTEP) .LOTAGT (ISTEPI #0. .0..0..0..0, 

• » 7LR  (T 

LO 

107 

ISTEP) • ftN  « I PE • ft ) 

LO 

108 

GO  TO  2 

LO 

109 

c 

LO 

110 

23 

E OK MAT  (//. 7X,8mL0CAT J ON . 1 0 X * 1 OhPE S l S T ANCE . 3* . 1 OH [NOOC T ANCE < 

»2*. I 1h 

LO 

111 

lCAPACITANCf .7x . lbHlMPfOANCF  (OhmS) .S x . 1 2hC0N0uC T I v I T V .ft X . ftMT YPE • / t 

LO 

112 

2ftX.ftHl  TAG.  I OH  EBOM  THO'J.  10X  .ftMOHMS.flX.6HHENPYS.7X,GHEAPA0S.8X.ftHPE 

LO 

113 

3AL .6X.QHlMAGlNAPT.ftX. lOHMHOS/MfTEP) 

LO 

lift 

2ft 

E OPM A T (/.10X.7AHNOTE.  SO«E  OE  THC  ABOVE  SEGMENTS  HAVE  BEEN 

LOADED 

LO 

115 

1 TWICE  - ImpEOAnCES  AOUEO) 

LO 

116 

25 

FORMAT  (/.lOX.ftftHlMPRoPER  LOAD  TYPE  ChOOsEN.  REOUESTEO  TYPE 

IS  *13 

LO 

117 

1 > 

LO 

118 

26 

format  (/• iox.sohloaotng  data  caro  error,  no  segment  has  an 

ITAG  ■ 

LO 

119 

1 .IS) 

LO 

120 

End 

LO 

12  i 

subroutine  ltsolv  ( a.nrow.ncol, ix.b> 

LT 

1 

C 

LT 

2 

C 

LTSOLV  SOLVES  THE  MATRIX  EO.  Y (P) «LL (T ) *B (R) 

WHERE  (R)  DENOTES 

ROW 

LT 

3 

c 

VECTOO  ANO  Ltm  denotes  The  LU  DECOMPOSITION 

OF  THE 

TRANSPOSE 

OF 

LT 

ft 

c 

ThF  ORIGINAL  COEFFICIENT  -ATRIx.  the  LU<?>  DECOMPOSITION  IS 

LT 

5 

c 

STORED  ON  TAPE  5 IN  B(OC*S  IN  ASCENDING  ORDER 

AND  ON 

FILE  3 IN 

LT 

6 

c 

BLOCKS  OF  DESCENDING  iRDER • 

LT 

7 

c 

LT 

8 

COMMON  /MATPAP/  ICASE .NHLOfS.NPRLK ,NL AST .NBLSYM.NPSYM 

.NLSYM 

LT 

9 

COMMON  /SCRATM/  Yi]S00) 

lt 

10 

DIMENSION  A(NRON.NCOL ) • BCNROft).  IX(NRQW) 

LT 

11 

COMPLE  * • • B • Y » SUM 

LT 

12 

c 

LT 

13 

c 

FORWARD  SUBSTITUTION 

lt 

1ft 

c 

LT 

15 

I 2*2*NP8Lk •NBOm 

LT 

16 

J«0 

LT 

17 

DO  ft  I *BLK  I ■ 1 . N6L0KS 

LT 

18 

CALL  BLCMN  (15.1.12*1.121) 

LT 

19 

K2*NPBi* 

lt 

20 

IE  ( 1 XBLK1  .EO.NBLOKS)  K2*NL  AST 

LT 

21 

DO  3 <*1*K? 

LT 

22 

JM  1 • J 

LT 

23 

J«J*1 

LT 

2ft 

SUM* (0. .0. ) 

LT 

25 

IE  (JMl.LT.l)  GO  TO  2 

LT 

26 

00  1 1*1. JM 1 

LT 

27 

SU*»SUM*AI!,K)*Y(]> 

LT 

20 

1 

CONTINUE 

LT 

29 

2 

CONTINUE 

LT 

30 

Y( J)*(B(J)-SUM)/A(J,K) 

LT 

31 

3 

CONTINUE 

LT 

32 

ft 

CONTINUE 

LT 

33 

c 

LT 

3ft 

c 

BACKWARD  SUBSTITUTION 

LT 

35 

c 

LT 

36 

j*NR0w« | 

LT 

37 

00  8 I XHLK I * 1 • NHLOkS 

LT 

30 

CALL  BICKIN  (16. 1*12*1*122) 

LT 

39 

K2*NPBLK 

IT 

ftO 

IE  irxniKUEO.il  K2*NL  AST 

lt 

ftl 
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00  7 K*1*K? 

KPaK2-K • 1 

JP1*J 

J*J-1 

SUM* tO. .0.) 

IF  (N40ti.LT. JPl)  GO  To  6 
00  5 l=jPl.NROM 
SUmsSU***A(  I M 

continue 

CONTINuF 
B ( J) = V f J) -SUM 
CONI  iNtiE 
CONTlNoF 


UNSC4A-BLF  SOLUTION 


00  9 I*l«NR0w 
I *1=1* ' I > 

V ( I K 1 1 *H ( I ) 

CONTINUE 

00  19  1=1 »NR0* 

B ( I : fT'll 

RETURN 

ENO 


SUBROUTINE  LUnSCR  (A*nMO».nCOL. IX. IP) 


S/R  MHICH  UNSCRAMBLES.  SCRAMBLED  FACTORED  MATRIX 


COMMON  /MATPAP/  I CASE  »N8L  OKb  *NPBLK .NL  AST  »NBLS YM • No^TM  »NL  STM 
COMMON  /RESTMT/  I C 1 • IC2 * I C 3 *NR£S .NPQF S • I BLCK * I OUMo , TMOUM ,£ x T 1M 
0 1 MENS  I ON  A (N°OM»NCOL ) * IP(NRO*).  IK(NROM) 

COMPLEX  a. temp 

IF  I IC1.EQ.-1)  GO  TO  o 

11*1 

I2*2*NPBLK»NR0M 

NM1*NR0M-1 

00  A I*BL*T1*1  .NBLOKS 

CALL  BlCkIn  (12*11. 12. 1.121) 

K 1 e ( I XRLK l-l ) #NPBLK*2 
IF  (NM1.LT.K1)  GO  TO  ^ 

J2*  0 

00  2 KsKlvNNI 

IF  ( J2.LT.NPBLK>  J2*J2*l 

IPK*IP(K) 

DO  1 J=1 * J? 

TEMP* A ( K » J) 

A(K.J) =A( IPK, J) 

A(  IPK.  ))*TFMP 
CONTINUE 
CONTINUE 
CONTINUE 

CALL  BLCKOT  (15*11*12.1*12?) 

CONTINUE 

DO  5 I XRLK 1*1. NBLOKS 
BACKSPACE  15 

IF  TlXBLKl.NE.il  BACKSPACE  15 
CALL  BLCKIN  ( 15* 1 1 , 12, 1 • 123) 

CALL  BLCKOT  ( 16* 1 1 • 12* 1 • 124) 

CONTINUE 

00  6 I*1.NRCW 

IX(I)*I 

CONTINUE 

00  7 lal.NROW 

IP!=IP(I) 

1*7=1*  d> 

IX(I)*IX(IPI) 

IX(IPI)*IXT 

CONTINUE 

NBl *NBl0KS-1 

DO  B I xBLK 1 a 1 , NB 1 

CALL  BLCKIN  (15*11,12,1* 12s) 

CONTINUF 

SKIP  NR  1 LOGICAL  RECORDS  FORWARD 

RETURN 

END 


SUBROUTINE  MATFIL  (E TP *E T I , IPR . j,  JCOI  * jC02.CM.NR0', .NCOL  * IFLG) 


MATFIL  FILLS  THE  matrix  elements  representing  F I El  OS  DUE  TO  MIRE 
SEGMENT  CURRENTS  (EITnER  £ FlEin  ON  A SEGMENT  OR  h FIELD  ON  A 
PATCH) 


COMMON  /DATA/  LD*N.NP.N.MP.X(1000)*T( 1000) .7(1000) .SI ( 1000) .»! ( 100 
10) * ALP ( 1000) «BET( 1000) .ICONl (1000) • IC0N2 ( 1 000 ) • I T AG ( 1 000 ) .ML AM. IPS 
2YM 

COMMON  /JUNK/  NC0x*J0x(2S) *NCIx*JIX(?S) *NC07* J02 ( ?5) *NC IZ  » JIZ (25) 
DIMENSION  ETR(J).  FTK3I*  CM  (N^OM.NCOL ) 

COMPLE  * CM 


FUNCTION  TO  CALCULATE  MATRIX  ELFMENT  LOCATION 
JL(K)*((K-1)/NP)*2»MP*K 


IF  (IFlG.EO.O)  GO  TO  10 


c 

CONTRIBUTIONS  TO  ELEMENTS  f OR  SF&MENTS  CONNECTED  TO 

ENO  ONE 

OF 

MF 

19 

c 

SEGMENT  J 

MF 

20 

c 

MF 

21 

IF  (JCOll  1.5,2 

MF 

22 

1 

CALL  JMELS  (ETRIll ,ET! <1 1 .NCI*. JlX.NCOX.JOX.IPR.CN, 

NROv.NCOL) 

MF 

23 

GO  TO  S 

MF 

24 

2 

IF  1 JC01.LT.10000)  GO  TO  3 

MF 

25 

JLOC*  JL  < J) 

MF 

26 

GO  TO  4 

MF 

2? 

3 

JLOC-JL  I JC 0 1 ) 

MF 

28 

IF  ( ICON? (JCOl).EQ.J)  GO  TO  4 

MF 

29 

IF  (JCOl.fO.J)  GO  TO  4 

MF 

30 

CMC JLOC , I PM) »CM( JLOC. TP«» -CMPL*  <ET«t 1 » •€  T I « 1 1 » 

MF 

31 

GO  TO  S 

MF 

32 

4 

CMC JLOC.IPP)»CM( JLOC.IPP) *rMPL« CE TP C I ) .ET I C 1 1 1 

MF 

33 

C 

MF 

34 

c 

CONTRIBUTIONS  TO  ElEMFnTS  FOP  SFGmEMS  CONNECTED  TO 

(NO  T.O 

OF 

MF 

35 

c 

SEGMENT  J 

MF 

36 

c 

MF 

37 

5 

IF  CJCG?)  4,10.7 

MF 

38 

6 

CAlL  JMELS  IETPC3) ,ETT<3> ,NCO/. j07.NCIZ.Jl2.IP«.CN, 

N«0».NC0LI 

MF 

39 

GO  TO  10 

MF 

40 

7 

IF  < JC02.LT. 100001  GO  TO  8 

MF 

41 

JLOC*  JL  C J) 

MF 

42 

GO  TO  9 

Mf 

43 

8 

JLOC*  JL  ( JCO?) 

MF 

44 

IF  < ICONIC  )CO?>  .EQ.j)  GO  To  *» 

mf 

45 

IF  (JC02.EQ.JI  GO  TO  9 

MF 

46 

CM( JLOC. IPR) *CM( JLOC. IPR) -CMPL*  (E TR ( 3) ,£T I < 3)) 

MF 

47 

GO  TO  10 

MF 

48 

9 

CMC JLOC.IP»»*CM( JLOC. !P«) »CMPL ACE TPC3) .£  T I (3)  ) 

MF 

49 

C 

MF 

50 

C 

CONTRIBUTION  TO  ELEMENT  FOR  SEGMENT  J 

MF 

51 

C 

MF 

52 

10 

CONTINUE 

MF 

53 

JLOC*  JL  i Jl 

MF 

54 

CMC JLOC, IPR) *CMC JLOC. IPR) .CMPL«  CETRC?) .ET 1(2)) 

MF 

55 

RETURN 

MF 

56 

END 

mf 

57- 

SUBROUTINE  MOVE  (R0A»R0Y»R0Z.*5,VS.ZS» ITS. 

NRPT.ITGI) 

MO 

1 

C 

MO 

2 

C 

S JR. OUT  1 NE  MOVE  MOVES  The  STRUCTURE  »ITM  RESPECT  TO  ITS 

MO 

3 

c 

COORDINATE  SYSTEM  OR  REPRODUCES  STRUCTURE 

IN  NE«  POSITIONS. 

MO 

6 

c 

STRUCTURE  IS  B0T4TF0  »BOUT  «.Y .7  »«ES  flV  R0»iR0T.R02 

MO 

5 

c 

RESPECTIVELY.  THEN  SMIFTEO  BY  AS.YS.ZS 

MO 

6 

c 

MO 

7 

COMMON  /DATA/  LO *N . NP , M , mP , A < 1 0 00 ) . T { 1 000 1 

•2(1000) ,Sl(1000).«l (100 

MO 

8 

10>  .»LP  (loom  .RET  IK  DO)  • 1 COM  ( 1000) . IC0N2  ( 1000  ) • IT  »0<  1000)  IPS 

MO 

9 

2YM 

MO 

10 

COMMON  /ANGL/  SALP(IOOO) 

MO 

11 

DIMENSION  T 1 A ( 1 ) • TlYCl),  TlZtl).  T2  X C 1 > • 

T2V ( 1 ) • T22CI) , *2(11.  Y 

MO 

12 

12(1 > • 72  C 1 > 

MO 

13 

EQUIVALENCE  CA2C1 ) .SI ( 1> ) . CY2C1) .ALP(l) ) . 

( Z2 ( 1 ) .BE  T ( 1 ) ) 

MO 

14 

EOUIVAI  ENCE  (T1A.S1I.  (T1Y.ALPI.  (T1Z.8ET) 

• (T2X.ICON1).  (T2Y.ICON 

MO 

15 

12).  (T2Z.ITAG) 

MO 

16 

IF  (A0S(ROX).ABS(ROY) .GT.l.E-10)  IPSYM* IPSYM*3 

MO 

17 

SPS*SlN(RO<> 

MO 

18 

CPS*COS(ROA) 

MO 

19 

STH«SINCR0Y) 

MO 

20 

CTM*CO* (ROY) 

MO 

21 

SPH*S I N ( ROZ ) 

MO 

22 

CPH*COS (ROZ) 

MO 

23 

A A *CPH»C  T H 

MO 

24 

AY«CPM*STH*SPS-SPH«CPS 

MO 

25 

azsCPh^sth^cps^sRh-sp*; 

MO 

26 

VX*SPH»CTH 

MO 

27 

YYrSPH»STH*SPS.CPH*CPS 

MO 

28 

yz*spm»sth*cps-cph»sps 

MO 

29 

ZA*-STh 

MO 

30 

ZY*CTh«SPS 

MO 

31 

ZZ*CTH»CPS 

MO 

32 

NRP*NRPT 

MO 

33 

IF  CNRPT.EO.O)  NRP* 1 

MO 

34 

c 

MO 

35 

c 

TRANSFORM  COORDINATES  OF  SEGMENTS 

MO 

36 

c 

MO 

37 

IF  (N.FQ.O)  GO  TO  3 

MO 

38 

1 1 * I SEGNO ( I TS , 1 ) 

MO 

39 

V A«1 1 

MO 

40 

K*N 

MO 

41 

IF  CNRPT.EO.O)  K* I 1-1 

MO 

42 

DO  2 IR* 1 » NRP 

MO 

43 

DO  1 1 = 11.  N 

MO 

44 

K *K  • 1 

MO 

45 

A !■*  ( I ) 

MO 

46 

YI-Y(I) 

MO 

47 

21*2(1) 

MO 

48 

AOO*AT«AA.YI*AY*ZI»A7*A5 
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NF 

78 

1RIC*CI  I (II  *F  J«(EPP«»AT  I ( 1 1 *ERIr  •A1P(I)  t£PWS*8|  I ( I ) *F  R I S*0 1 R ( I > .f RR 

NF 

79 

2c*cinn*F»ic»ci»(in 

NF 

80 

EX*EX*FZP«CABI*ERHO*0» 

NT 

81 

EY*EV*F7P*SABI*EPH0«0y 

NF 

82 

E7*EZ*F7P«SALPI*EPhO*0/ 

NF 

S3 

7 

CONTINUE 
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IF  (IROMl. LT. 2)  GO  TO  14 

NT 

54 

00  12  Isl.IROwl 
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00  IS  i*l  .NOIMN 
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1«  CONTINUE 
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IF  (NSFGl.NE.NTEQA(I) ) GO  TO  20 

|POMl*l 

GO  TO  2S 

20  CONTINUE 

21  NTF0*NTE0*1 
IP0P1*NTE0 
NTF0A(NTE0»*NSFG1 
GO  TO  PS 
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00  23  T*l.NTSr 
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23  CONTINUE 
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IF  (NSrr.2.NE.NTE0A«II>  GO  TO  2* 
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GO  TO  13 
20  CONTINUE 

29  NTF0*NTE0*1 

IPOW?**rTFO 
NTEOA(NTE0)*NSFC,2 
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60  TO  33 

NT 

159 

30 

IF  (NTSC.EQ.O)  60  TO  32 

NT 

160 

DO  31  !*l.NlSr 

NT 
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IF  (NSF02.NE.NTSCAI I) , GO  TO  31 

NT 
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IR0W2«nDIhnP-I 

Nl 

163 

GO  TO  13 

NT 
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CONTINUE 
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NT 
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NT 
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168 
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NT 
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NT 
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STOP 
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NT 
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NT 

178 

CMN<I»Owl.IROw?l*CMN( IROWl. IROW?)-CwPLX (Tl?R.Yl2l 1»Sl  (NSfGl  ) 
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NT 
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NT 
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NT 
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43 
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NT 

214 

CALL  SOLVES  (NOP*CM. iPtRMS.NWOw.NCOL • IX *NP*N*MP*Mi 

NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 

231 
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NT 
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00  46  lal.NTEO 

NT 
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|ROWl*NTEOA(Ii 

NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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46 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 
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NT 

274 

00  53  l«l.NTEO 
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NT 
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NT 
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NT 
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SMALL) 

NT 

290 

S8 

FORMAT  <3X.3MTAG.3X.4mSEG..5X.1SHV0LTAGE  (VOLTS) *11X. 

I4HCURRENT  (A 

NT 

291 

IMPS) . IPX. IfeMlMPf OANCE  (OHMS) .Iox*17maDmITTanCE 

<mhOS) 

•0X.SHPOMER*/ 

NT 

292 

2.3*  *3mno. . 3X.3HNO. .S*.4mR»IL .Rx.ShImAG.*  3<0X.4m»E aL«9X.SmIMAG. ) .7* 

NT 

293 

3.7m(WATTS) ) 

NT 

294 

59 

FORMAT  (///.32X.66M-  - - STRUCTURE  EXCITATION 

DATA  AT 

NETWORK  CONN 

NT 

295 

1CCTI0N  POINTS  - - -•/> 

NT 

296 

*0 

FORMAT  (2IIX.ISI .9E13.5) 

NT 

29  7 

SI 

FORMAT  (///.46X.36H-  - - AnTENNA  INPUT  PARAMETERS  - - 

-•/) 

NT 

298 

END 

NT 

299- 

SUBROUTINE  patch  (NX «NV .XC.YC.7CvAL.8T. AR ) 

PA 

1 

C 

PA 

2 

C 

PATCH  PERFORMS  VARIOUS  OPERATIONS  ON  THE  GEOMETRY  DATA  FOR  PATCHES 

PA 

3 

C 

PA 

4 

COMMON  /DATA/  LO*N.NP.M.MP, A(IOOO).YIIOOO) .Z(IOOO). SI (1000). 81(100 

PA 

5 

10) .ALP(IOOO) «RET (1000) .ICONl (1000) .IC0N2( 1000). ITAG( 1000) tML AM. IPS 

PA 

6 

2VM 

PA 

7 

COMMON  /ANGL/  SALP(IOOO) 

PA 

8 

DIMENSION  T 1 X ( 1 ) • T 1 Y ( 1 ) . TlZ(l).  T2*(D»  T2Y  ( 1 ) * T2Z  ( 1 ) 

PA 

9 

EQUIVALENCE  (Tl>. ST).  (T1Y.ALP).  (TlZ.BET).  (T2*.TC0M).  (T2Y.IC0N 

PA 

10 

12).  (T2Z.ITAG) 

PA 

11 

C 

PA 

12 

C 

set  parameters  to  define  a ne«  patch 

PA 

13 

c 

PA 

14 

M»M*1 

PA 

15 

fPsrM *o 

PA 

16 

NP*N 

PA 

17 

MP*M 

PA 

18 

MI*L0*1-M 

PA 

19 

X (MI) **C 

PA 

20 

Y(MI)»YC 

PA 

21 

Z f Ml ) *7C 

PA 

22 

81 (MI ) « AR 

PA 

23 

ZM2«C0S(AL) 

PA 

24 

XV2*ZM2»C0S(8T) 

PA 

25 

Y»2»ZM2«SIN(8T) 

PA 

26 

ZV2«SIN(AL) 

PA 

27 

XA.SQRT (XV2«XV2.Yw2»Y42) 

PA 

28 

IF  (XA.LT.l.E-6)  GO  TO  1 

PA 

29 

TlX(MI)«-vv2/XA 

PA 

30 

T1Y(M|)«XW2/IA 

PA 

31 

T17(MI).0. 

PA 

32 

GO  TO  2 

PA 

33 

1 

Tlx (M| ) ■!• 

PA 

34 

T1Y(M|)»0. 

PA 

35 

T17(MI)«0. 

PA 

36 

2 

T2X (MI ) *y«2*T 1 Z (MI ) -Zw2»T 1 V (MI ) 

PA 

37 

T2y(MI)«Zm2*T1x(MI)-Xv2*T17(MI) 

PA 

38 

T27(MI).xm2*T|Y(MI»-Yv2«T1X(MI) 

PA 

39 

SALP(MT)«1. 

PA 

40 

RETURN 

PA 

41 

C 

PA 

42 

c 

GENERATE  SURFACf  8Y  MmlTIPE  SHIFTING  OF  THE  LAST  PATCH  INPUT. 

PA 

43 

c 

PA 

44 

ENTRY  PACNS 

PA 

45 

MI«L0*1-M 

PA 

46 

1ST** (“I )-xC 

PA 

47 

YR|«YIMt).yC 

PA 

48 

ZM1*7(MII 

PA 

49 

S1X»T1X(MI) 

PA 

50 

S|YaTlY(M|) 

PA 

51 

SIZ«T1?(MI) 

PA 

52 

S2*»T2i (Mf) 

PA 

53 

S2Y«T2v (Ml ) 

PA 

54 
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c 


3 


C 

C 

C 


c 

c 


S2/*T??«M1> 

XA-BI  0*1  > 

saln«salp<mi» 

NXP«NX«| 

NVPsNV.l 

LOOP  FOB  SHIFTING  P4TfH  IN  Y 
00  4 Iy*1*NYP 

ymi>y*|.yC 

xmi-ast 

LOOP  FOB  SHIFTING  PATfH  IN  « 

00  3 I*>l.N»P 
IV1-AM1 **C 

IF  <!».E0.1.AnD.Iy.LQ.  I I 00  TO  3 
MM>| 

X(M!)»i«l 
VfM(|»vHl 
7(“I)«7m1 
BKMIUM 
SALPlMT ) «S4LN 
T 1 X (MI » *SI « 

TlY(M|)*SlY 

T17(Mt)«Sl7 

T2X(Mt)*S2i 

T2y(MI)*s2y 

T2?(NI».S27 

CONTINUE 

CONTINUE 

NP«N 

NP*M 

IP«*YH»0 

RETURN 

subdivide  patch  to  kmicm  a segment  end  is  connected 

ENTRY  SUBPH 
IF  (NX.EO.M)  GO  TO  6 

SHIFT  DATA  FOR  PATCHES  NX* 1 THROUGH  M D04N  BY  3 LOCATIONS  IN 

ARRAYS 

NXP-NX  »1 

I*»LO-m 

00  5 Iy*NXP*m 

M«ix*l 

NYP* I X- 1 
X ( NYP  > *X  ( I X ) 

Y<NYP)*Y(tX> 

Z(NVP)*7UX) 

BI  (NYP|*B1(1X> 

SALP(NYP)«SALPf IX) 

T1 X (NYP ) *T | X ( I X ) 

T 1 Y (NYP) *T I Y ( I X ) 

TIZ<NYP)*T12HX) 

T2XCNYP)*T2X(IX) 

T2YCNYP)*T2YUX> 

T2Z(NVP)*T?Z(IX) 

INSERT  DATA  FOR  SUBDIVIDED  PATCHES  INTO  ARRAYS 
MIsLDM-NX 

XW1*X(MI) 

YW1*V (mj ) 

ZM1*Z<mI) 

X A=B I f M T I • ,2S 

XST-SQPT(XA)*.5 

SlXsTlXIMI) 

SI Y*T  1 Y (MI ) 

SI7«T17IHI) 

S2x*T2x(MI) 

S2Y-T2Y (HI ) 

S2Z*T27  f HI > 

SALN*SALP<M!> 

XN2-XST 
YN2*XST 
00  9 I x*l *4 

XtMl)«XNi*XN2*SlX*Y«l2*S2X 
YIMI)*YP1*X)»2*S1V*VW2*S2Y 
Z(MI)«7N1*XN2*S1Z*Yp2*S2Z 
BI (MI ) *XA 

IF  UX.NE.n  GO  TO  7 

X*2«-XW2 

GO  TO  A 

T|X(MI)«S1X 

T I Y (Ml ) *51 Y 

T IZ (MI ) *S1 7 

T2X(MI»*S2X 

T2Y(MI)«S2Y 

T2ZIMI ) *S?7 

SAlP(MII*SALN 

IF  (IX.EQ.2)  YM2*-Y*2 

IF  (lx.EO.I)  Xtf2*-X M2 

MI-MI-1 

CONTINUE 

N«MO 

IF  (NX.LE.MP)  MP*MP*3 

RETURN 

CNO 


PA 

55 

PA 

56 

PA 

57 

PA 

56 

PA 

59 

PA 

60 

PA 

61 

PA 

62 

PA 

63 

PA 

64 

PA 

65 

PA 

66 

PA 

67 

PA 

68 

PA 

69 

PA 

70 

PA 

71 

PA 

72 

PA 

73 

PA 

74 

PA 

75 

PA 

76 

PA 

77 

PA 

78 

PA 

79 

PA 

80 

PA 

81 

PA 

82 

PA 

83 

PA 

04 

PA 

8S 

PA 

86 

PA 

87 

PA 

88 

PA 

89 

PA 

90 

PA 

91 

PA 

92 

PA 

93 

PA 

94 

PA 

95 

PA 

96 

PA 

97 

PA 

90 

PA 

99 

o A 

100 

PA 

101 

PA 

102 

PA 

103 

PA 

104 

PA 

105 

PA 

106 

PA 

107 

PA 

108 

PA 

109 

PA 

no 

PA 

111 

PA 

112 

PA 

113 

PA 

114 

PA 

115 

PA 

116 

PA 

117 

PA 

118 

PA 

119 

PA 

120 

PA 

121 

PA 

122 

PA 

123 

PA 

124 

PA 

125 

PA 

126 

PA 

127 

PA 

128 

PA 

129 

PA 

130 

PA 

131 

PA 

132 

PA 

133 

PA 

134 

PA 

135 

PA 

136 

PA 

137 

PA 

138 

PA  139 
PA  140 
PA  141 
PA  142 
PA  143 
PA  144 
PA  145 
PA  146 
PA  147 
PA  148' 


SUBROUTINE  PCINT  (Xl.Yl.Zl* XA.CABI .SABI *SAI PI.E) 

c 


PC  1 
PC  2 
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c 

pcint  performs  the  numerical  Integration  of  the  s.ofacf  current 

PC 

3 

c 

INTERPOLATION  FUNCTION  OVER  IMF  FOUR  PATCHES  AT  TmE  BASE  OF  A 

PC 

A 

c 

CONNCflEO  *|RF  TO  rlEtO  The  E FIELO  ON  THE  CONNECTING  wIRE  SEGMENT 

PC 

5 

c 

PC 

6 

COMMON  /OAT!/  TlM.rivI.TlZl.rr* rtT2Yl.!£ZI.Al.Yl.7I 

PC 

7 

DIMENSION  E 49) 

PC 

e 

COMPLf  * £1  • E2.C3*C4«Ec«E6«E7.£r,En.E1i.£1Y.E12»E2««E2v«E22«E 

PC 

9 

DATA  TP|/6.2«1|B530B/.N1NT/ 10/ 

PC 

10 

0*SQRY  ( 1 Al • .5 

pc 

11 

0S  = <*.«O/fL0AT  (MINT  ) 

PC 

12 

OA«OS*nS 

PC 

13 

GC0N« 1 . / AA 

pc 

1A 

FCON-1./ 42.MPl«Dl 

PC 

is 

SI •0*DS«.S 

PC 

16 

ASS*A1*S1*IT1«I*T?*1» 

PC 

17 

YSS«Vl.Sl«4?lYl*T?V|| 

PC 

le 

ZSS»Zl*Sl*4f 17I*T27ll 

PC 

19 

S1«S1*0 

PC 

20 

s2**si 

PC 

21 

E 1 * < 0 . . 0 • » 

PC 

22 

E2* 10. .0. » 

PC 

23 

E3X0..0.) 

PC 

2A 

EAM0..0.) 

PC 

25 

E5*  4 0 • • 0 • > 

PC 

26 

E6M0..0.) 

PC 

27 

F7«iO..O.) 

PC 

28 

F0»(O..O.) 

PC 

29 

£9*40. .0.1 

PC 

30 

c 

INTEGRATION  Over  The  4 PATCHES  *ITh  NIN T x hint  steps 

PC 

31 

00  1 I l * 1 *NlNT 

PC 

32 

si*si-ns 

PC 

33 

S2*S2x 

PC 

3A 

XSS*XSS-OS*T 1 X I 

PC 

35 

TSS«rSS-DS»TlYl 

PC 

36 

ZSS-ZSS-OSM17I 

PC 

37 

xs=xss 

PC 

38 

YSsVSS 

PC 

39 

7S*ZSS 

PC 

AO 

00  1 I?*l *N!NT 

PC 

A 1 

S2*S2-OS 

PC 

A2 

XS*X5-PS#T2X 1 

PC 

A3 

YS*YS-OSM?YI 

PC 

AA 

7S*ZS-OS»T?7I 

PC 

AS 

CALL  'InERE  Ul-*S.Yl-YS«7!-ZSfOAfEUtElYtElZ#EZX*EZY*EZ2) 

PC 

A6 

E1X*E1X«CAB1*EIY*SA8I*E1Z«SALPT 

PC 

A7 

E?*«E2<»CABI*F?Y*SABI*E2Z«SALPI 

PC 

A8 

G1*I0*SI>MO*52>*GCON 

PC 

A9 

G2*4D-M>*40*S2>»GC0N 

PC 

SO 

G3*40-Sll«(0-S2)*GC0N 

PC 

SI 

G4«ID*Sll*4D-S2!«GCON 

PC 

52 

F2*(S1*S1*S2*S2J*TP! 

PC 

S3 

Fl*Sl/F2-4Gl-G2-G3*G4|*FCON 

PC 

5A 

F2»S2/F2-IG1  *02-63-04) *F CON 

PC 

55 

c 

SUMMATION  OF  THE  9 COMPONENTS  - T«0  SURF ACF  COMPONENTS  EACH  FOR 

PC 

56 

c 

THE  FO«jR  PATCH  CURPENTS  PLUS  THF  SEGMENT  CURRENT 

PC 

57 

EI«C1»F1JIPG| 

PC 

58 

E2*E2*EU*G2 

PC 

59 

E3*E3*F l X*G3 

PC 

60 

EA*£4»CIX«G4 

PC 

61 

E5*E5*F2 A*G1 

PC 

62 

F6*£6»F?X*G? 

PC 

63 

ET»C7*E2X«G3 

PC 

6A 

E0*C8*F  2X*64 

PC 

65 

1 

E9*E9*FIX»FI*E2X#F2 

PC 

66 

E < I > *E 1 

PC 

67 

E 4 21 *C2 

PC 

68 

E 4 31 *E  3 

PC 

69 

E441-EA 

PC 

70 

E4S1-ES 

PC 

71 

E 461«E6 

PC 

72 

E47ME7 

PC 

73 

E 481«ER 

PC 

7A 

E 4 91 *F9 

PC 

75 

RETURN 

PC 

76 

END 

PC 

77- 

SUBROUTINE  PRNT  4 INI . IN2 1 IN3.FL 1 *FL2 .FI 3.FL A .FL5*FL6t I A. I CHARI 

PR 

C 

PR 

C 

PRNT  SETS  UP  THE  PRINT  FORMATS  FOR  IMPEOANCE  lOAOTNG 

PR 

C 

PR 

OIWENSION  IVAR413).  I A 4 1 > • IFORM48).  IN43).  INT(3l*  FL461 

• FIT  461 

PR 

l.\'TEGEP  MALL 

PR 

DATA  TF0RM/SM</3X.,  JHfS.  . 3HSX.  , 3HAS.,NHEn.A.  .AHlII..  1H3X 

•tSH2AI0l 

PR 

1/ 

PR 

C 

PR 

C 

NUMBER  OF  CHARACTERS  PER  COMPUTER  wCRO  IS  NCP* 

PR 

10 

C 

PR 

11 

DATA  NCPW/10/.MALL/AH  ALL/ 

PR 

12 

NMOROSs  4 1 CHAR- 1 1 /NCPWM 

PR 

13 

IN41)»IN1 

PR 

lA 

IN42IMN2 

PR 

15 

r *<3i*t«3 

PR 

16 

FL41l*FLl 

PR 

17 

FL42I-FL2 

PR 

18 

FL  4 31 »FL  3 

PR 

19 

FL44)«FLA 

PR 

20 

FL45)*FL5 

PR 

21 
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c 

c 

c 


1 


2 

3 


5 


C 

C 

C 

C 


C 

C 

C 


2 


3 


FL (61 «f L6 

PR 

22 

PR 

23 

INTEGER  FORMAT 

PR 

26 

PR 

25 

NlNT«0 

PR 

26 

IVARI 1 I * I FOP*  f 1 > 

PR 

2? 

K*1 

PR 

26 

11*1 

PR 

29 

IF  ( .NOT  .(JNl.EQ.O.  ANr>.  IN2.EQ.0.  ANP  .IN3.EO.O))  GO  TO  1 

PR 

30 

int  id.mall 

PR 

31 

ninth 

PP 

32 

11*2 

PP 

33 

K*K  • 1 

PR 

36 

!VAP<«)  *IFOPH(*,» 

PR 

35 

DO  3 1*11.3 

PR 

36 

K*K*  1 

PR 

37 

IF  (lN(l).EQ.O)  GO  TO  2 

PR 

38 

NlNT*NtNT*l 

PR 

39 

IHJ  JNJnT)=INU) 

PR 

60 

IVAP<K)*IF0R"<2> 

PR 

61 

GO  TO  3 

PR 

62 

IVAR IK) *IFOPM(3> 

PR 

63 

CONTINUE 

PR 

66 

K *K  • J 

PP 

65 

!VAP(K)*IFORM<7) 

PR 

66 

PP 

67 

floating  POINT  FORMAT 

PR 

68 

PR 

69 

NFlT*0 

PR 

50 

00  S 1*1.6 

PR 

51 

K*K  ♦ 1 

PR 

52 

IF  IAR<;iFLIIM  .LT.l.E-20)  GO  TO  6 

PR 

53 

nFlt*nfltm 

PR 

56 

FLT(NFlT>*FL  1 I) 

PR 

55 

IVAPIK) *IFORH(S» 

PR 

56 

GO  TO  S 

PR 

57 

IVAR(K)*IFORN<M 

PR 

58 

CONTINUE 

PR 

59 

K*K.  1 

PR 

60 

ivapik) * i form i t > 

PR 

61 

K«K*l 

PR 

62 

I VAR  1 K ) * IF0RN I R ) 

PR 

63 

PRINT  I v AR • ( INT ( I ) « I * 1 *N IN  T) • (FL T ( J ) , J* I • NFL  fit (fA(L>«L*2 «N*OR£)S> 

PR 

66 

RE  TURN 

PR 

65 

END 

PR 

66- 

SUBPOUUMf  PCFLC  IU.IV.lf.ITA.NOPI 

RE 

1 

RE 

2 

RfFLC  OEFLfCTS  PARTIAL  STPuCTubc  ALONG  ».T. 

OP  7 

AXfS  OR 

ROTATES 

RE 

3 

STPUCTi.Rt  TO  COMPLETE  A STMMETPTC  STPUCHIRE 

. 

RE 

6 

RE 

s 

COMMON  /DATA/  LD.N.NP.M.MP.AIlnoOl.TUOOO). 

7(1000) .SI (1000). Rt (100 

RE 

6 

101  .ALP  ( 10001  .BET  ( 1000  1 . ICON  1 1 1000).  ICONJ  1 1 000 1 . 1 T AC.  1 1 000 1 

•WLAN, IPS 

RE 

7 

2T« 

RE 

8 

CONNON  /AHOL/  SALPflOoOl 

RE 

9 

OIMENSTON  T IX  ( 1 ) • T1Y(1»*  T 1 Z ( 1 > • T2HI1).  T2Y  « 1 1 • 

T22 ( 1 1 . 

*2(1).  V 

RE 

10 

12(11*  72(11 

RE 

11 

EQUlVAt  FNCE  ITlX.Slt*  ( T 1 Y * ALP ) . (T17.BET). 

(T2»* ICON! ) . 

( T?V • ICON 

RE 

12 

121.  ( T?2.  IT  AG)  . (X2.SI1.  (Y2.ACPI.  (22.0E  T» 

RE 

13 

NP*N 

RE 

16 

MP-M 

RE 

IS 

IPSY«4*0 

»E 

16 

ITI.ITX 

RE 

IT 

IF  (IX.LT.01  GO  TO  19 

RE 

18 

IF  (NOP.EO.O!  RETiJRN 

RE 

19 

fPSYH* \ 

RE 

20 

IF  (17. €0.01  GO  TO  6 

RE 

21 

RE 

22 

REFLECT  ALONG  7 AXIS 

RE 

23 

RE 

26 

IPSVM*? 

RE 

25 

IF  (N.FO.Ol  GO  TO  3 

RE 

26 

00  2 !*l.N 

RE 

27 

NX* I *N 

RE 

28 

£1*7(1) 

RE 

29 

E2*72 1 I 1 

RE 

30 

IF  (AesiEll  .ARSCE2I  .GT.l.E-5.Awn.El*E2.G£.- 

l.E-61 

GO  TO  1 

l 

RE 

31 

PPJNT  ?6.  I 

RE 

32 

STOP 

RE 

33 

X (NX  1 *X ( 1 1 

RE 

36 

Y (NX ) *V  ( 1 1 

RE 

35 

ZINX»*-E1 

RE 

36 

X2 (NX ) *X? ( 1 1 

RE 

37 

Y2(NX)*Y2(I1 

RE 

38 

Z2(NXI*-E2 

RE 

39 

ITAGI*ITAG(I1 

RE 

60 

IF  1ITAGI.EO.01  ITAGIMXI.U 

RE 

61 

If  11  TAGI.NE.91  ITAG(\)X1*IT  AG  I . I T I 

RE 

62 

R 1 (NX). RHP 

RE 

63 

N*N*2 

RE 

66 

ITI*ITI*2 

Rf 

65 

if  m.eo.oi  go  to  * 

RE 

66 

NXX*LD*i 

RE 

67 

00  5 I*l.N 

RE 

68 

NXX*NX  X - 1 

RE 

69 

NX.NXX-M 

RE 

50 

IF  (ARM7INXX)  1 .GT.l.F-101  GO  TO  6 

RE 

51 
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I 


PRINT  >S*  I 
STOP 

<•  X (NX) *x (NX* ) 

V (MX) *Y (MX* | 

7(N*> »-7 (N*X> 

T l X (NX  1 *T  IX (NX* ) 

T1V(NX)*T1 V (NX  X ) 
ri/(NX)»-TI7(N**l 
T2* (NX)zT2X(NXX) 

T2Y(NX)*T2Y(NXX) 

T27(NX>  »-T2Z(N*X) 

SXlP(NX)»-«*XlP(NX*) 

S HI (NX > z«I (NIX ) 

M*M«*2 

ft  if  dv.fo.o)  go  to  12 

c 

C REFLECT  ALONG  V AiIS 

c 

if  (N.rn.o)  go  to  q 

DO  A I s 1 • N 
NXs  I *N 
El*Y(l> 

E2»Y2(!) 

IF  ( ABS  (Ell  *ARS  (E2I  .GT  • 1 .E-b.  AnO  .E  1 «F.  2 .GE  .-1 *E-6>  GO  TO  7 
POINT  ’4.  I * 

STOP 

7 X(NX)»*(I) 

Y ( NX  I *-C  1 
Z (NX 1*7(1) 

X2(NX) zX2( I ) 

Y2(NX)s-£2 

22 (N* ) >72 ( I ) 

ITAGI*  f TAG ( 1 1 

IF  (ITAGI.EO.OI  I T AG ( NX ) *0 
IF  (ITAGI. NE.O)  ITAG(NX)mITAGNlTI 

8 B I ( NX ) sR I ( i > 

N*N»2 

ITS«I T |*2 

9 IF  (R.FQ.O)  GO  TO  12 
NXX*LO* l 

DO  II  7*1.* 

NXX*NXX-1 

NX*NXX-M 

IF  (ARc(Y(NXX) ) .GT.l.F-10)  GO  TO  lo 

PRINT  ?5*  I 

STOP 

10  X (NX ) *x (NXX ) 

Y (NX ) *•  Y ( NX  X ) 

Z (NX  1 *7 (NXX 1 

T 1 X (NX ) *T 1 X (NXX 1 
TlY (NX) s-TlY (NXX) 

T 1 7 (N* ) *T 1 Z (NXX ) 

T2X(NX)*T2X(NXX) 

T2Y(NX)*-T2Y(NXX> 

T2Z(NX)*T27(NX») 

SALP(NX) *-SALP(NXX) 

11  01 (NX ) =AI (NXX) 

M*M#2 

12  IF  (IX.FO.O)  GO  TO  1A 
C 

C REFLECT  ALONG  X Axis 

C 

IF  (N.FO.O)  GO  TO  IS 
00  14  I s 1 «N 
NX*  I *N 
E 1 *X ( I ) 

E2*X2 ( 1 1 

IF  (ABs(Ell«ARS(E2) .GT.1.E-S.Ano.Ei*E2.GE.-1.E-6)  GO  TO  13 

PRINT  ?4 * I 

STOP 

13  X (NX  I *-E 1 
Y ( NX ) * Y ( I ) 

Z (NX) *7 ( I ) 

X2(NX)*-E2 
Y2 (NX ) *Y2 ( I ) 

Z2(NX)sZ2(t) 

ITAGI*ITAGf I) 

IF  (ITAGI.EO.O)  ITAG(NX)*0 
IF  (ITAGI. NE. 01  ITAG(NX)*ITAGI*ITI 

14  BI(NX)rRKI) 

N*N#2 

15  IF  (M.FO.OI  GO  TO  18 

nxx»ld*i 

DO  17  1 * 1 »M 
NX  X*NX  * • 1 
NXbNXX-M 

IF  (A0S(X(NXX) ) .GT.l.F-10)  GO  TO  1ft 

PRINT  ?S*  I 

STOP 

16  X (NX ) *-X (NXX ) 

Y (NX  I *y (NXX ) 

Z(NXI«7(NXX) 

T1*(NX)*-T1X(NXX) 

T 1 V ( NX ) *T 1 Y (NX  X ) 

T17(N*| *T1Z(NXX) 

T2X (NX)*-T?X(NXX) 

T2Y(NX)«T2Y(NXX) 

T27(NX|«T2Z(NXX) 

SALP(NX) *-SALP(NXX) 


RE  S2 
RE  S3 
RE  S4 
RE  SS 
RE  S6 
RE  S 7 
RE  SA 
RE  59 
RE  60 
RE  61 
RE  62 
Rf  63 
RE  64 
RE  6S 
RF  66 
RF  6 7 
RF.  66 
RE  69 
RE  70 
Rf  71 
RE  72 
R£  73 
RE  74 
RE  7S 
RF  76 
RF.  77 
RE  78 
RE  79 
RE  AO 
RE  61 
RE  82 
RE  83 
RE  84 
RE  85 
RE  86 
RE  8 7 
RE  66 
RE  89 
RE  90 
RE  91 
RE  92 
RE  93 
RE  94 
RE  95 
RE  96 
RE  97 
RE  98 
RE  99 
RE  100 
RE  101 
RE  102 
RE  103 
RE  104 
RE  105 
RE  106 
RE  107 
RE  108 
RE  109 
RE  110 
RE  111 
RE  112 
RE  113 
RE  114 
RE  115 
RE  116 
RE  1 IT 
RE  118 
RE  119 
RE  120 
RE  121 
RE  122 
RE  123 
RE  124 

RE  |25 
RF  126 
RE  127 
RF  128 
RE  129 
RE  130 
RE  131 
RE  132 
RE  133 
RE  134 
RF  135 
RE  136 
RE  13? 
RE  138 
RE  139 
RF  140 
RE  141 
RE  142 
RF  143 
RE  144 
RE  145 
RE  146 
RE  14? 
RE  148 
RE  149 
RE  ISO 
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BY  <N«>  'HI  tM) 

M-M-2 

RE  TURN 


' • y?  *OfiN  CYLINDRICAL  STRUCTURE 


RfPRO>,’  ‘f 


fN  GP»N')P 
IRSVM--1 

SAN-6, ?§31  8S  10*/»  . k 

CS-COS(SAmi 

SS^SlNlSA*! 

If  IN.FQ.O)  • ro  I 

N»S*NOC 
N« -NP • | 

00  20  !«NX.N 
K-l-NP 
|R«I (Kl 
YK-Y IR  > 

X I I » •XK«CS-YS«SS 
V I I ) ■ <*  #5S • Y* -cs 
zhi«;i*i 

XK-lZlKI 

m«Y2u » 

X?  I I > ««K«CS-Y«-SS 
Y?  I I) ****SS*YK«CS 
22ll)«72l") 

I T »GI » I TXG (* ) 

If  (ITfftUCO. 

If  UTaGI.NE.O)  I T ag  ' : ‘ - ! T x j I • I T I 
91 <11*91 <"> 
if  iH.fo.O)  r.o  to  - 

M-M-NOP 
NX  »MP ♦ 1 
K-LD*1 

00  22  I»NX,M 
K«K-1 
J»K- MR 
XK-XIK) 

TK*Y  |K  » 

X IJ)*X**CS-YX#SS 
V I J) *XK  -ss«  yr  *cs 
Z I J) -7  IK ) 

XK»T IX  (R  > 

YK-T1Y  « R > 

TlX(J»*XR*CS-Y*«Sc 
TIY|JJ*XK»SS*Tk*CS 
T17lJ»*T|<f  IR) 

XK-T2X  !R» 

YK-T2V IR) 

T2XI  J)*XK«CS-Yrf-SS 
T2YI J) *XR«SS« TR«CS 
T2? I J>  *T?7  IR ) 

SALRI J**SALPIR> 

8!  I J)*»T IR) 

RETURN 


DO  22  I»NX,M  RE  185 

K«K-1  RE  186 

J-K-MP  RE  18? 

XK-XIK)  RE  188 

YK*V|R)  PE  189 

X I J>«XR»CS-Y*»5S  RE  190 

VI J>»Xk-SS* YK*CS  RE  191 

2 f J) *7 IR ) RE  192 

XK*T1XIR)  PE  193 

YR.TIYIR)  RE  1 94 

T 1 X I J)  *XR*CS-Ytt«Sc  RE  195 

T1YI J) »XK»S5*Yk*CS  RE  196 

T12I JlaTIZlK)  RE  197 

XR-T2XIR)  RE  198 

YR»T?YIR)  RE  199 

T2XI J1«XK«CS-Y*»SS  RE  200 

T2YIJ)**R#SS*tr«CS  RE  201 

T22  < Jl *T?7 Ik  > RE  202 

SALRYJI-SALPIK)  RE  203 

01  I Jl *Pf IR ) RE  ?04 

RETURN  RE  208 

RE  206 

FORMAT  I29N  GlOMtTR  'XU  SE GM£n f • IS*26M  LIES  IN  PLANE  Of  S RE  207 

lYMMfTRV)  RE  ?08 

FORMAT  I2?h  GFOmETOT  r.ATA  YPRQP — PATCH, 14, 2*H  LIES  IN  PL  ANF  Of  SVH  RE  209 


FNO 

RE 

211 

SUBROUTINE  SOI  VE  IN. A. IP,R.NOlM) 

SO 

1 

V 

SO 

2 

c 

SUBROUTINE  TO  SOLVE  ?►«£  MATRIX  f QUAY  ION  LU*X»fi  NMfPE 

L IS  A UNIT 

so 

3 

c 

loner  TRIANGULAR  MATDJX  ANo  u AN  UPPER 

TPIANGU!  AP 

MATRIX  BOTH 

so 

4 

c 

Of  BM|fH  APE  STOPEf:  IN  *.  THF  phs  VECTOR 

P IS  INPUT 

ANO  THE 

so 

s 

c 

SOLUTION  IS  RE  TURNED  THROUGH  VECTOR  R . 

IMATPIX  TRANSPOSED, 

so 

6 

c 

so 

7 

01 ME NS ION  A (NOIM.NOIM) . JP(N0I>4).  RINOIH) 

so 

8 

COMMON  /SCPATm/  Y(ISOO) 

so 

9 

COMPLEX  A.fl.Y.SUM 

so 

10 

INTEGER  PI 

so 

11 

c 

so 

12 

c 

EOPNAPO  SURSTITUTION 

so 

13 

c 

so 

14 

00  3 !•!•* 

so 

IS 

RI«IPII» 

so 

16 

VIII-PIPI » 

so 

17 

RIPI)-R(I) 

so 

18 

IP1»I * 1 

so 

19 

If  HP1.6T.N)  GO  TO  2 

so 

20 

00  1 J*IP1.N 

so 

21 

R(J)*9(J)-AI| 

so 

22 

1 

CONTINUE 

so 

23 

2 

CONTINUE 

so 

24 

3 

CONTINUE 

so 

25 

C 

so 

26 

C 

RACKBAQO  SUBSTITUTION 

so 

27 

C 

so 

28 

00  6 K*l.N 

so 

29 

I«N-K*1 

so 

30 

SUM-ID. .0. ) 

so 

31 

!P1*I*1 

so 

32 

If  IIP1.GT.N)  GO  TO  S 

so 

33 

00  6 J-IP1.N 

so 

34 

SUM«SU»*.  A 1.1,1)  *RI  J) 

so 

35 
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r 


sm 


<• 

continue 

SO 

36 

s 

CONTINUE 

SO 

37 

8<I»«(v( I ) -SUM) /A ( | , I ) 

SO 

38 

6 

CONTINUE 

SO 

30 

RETURN 

SO 

4.0 

£N0 

SO 

6|- 

SUBROUTINE  SOLVES  (NOP* A. IP.B.NRQm.NCOI • l X.NP 

1 «N»  MP .Ml 

ss 

1 

c 

ss 

2 

c 

SUBROUTINE  SOLVES,  FOR  STRUCTURES. 

HAND'  ES  The 

SS 

3 

c 

TRANSFORMATION  OF  ThE  WIGHT  HAND  SIOF  VECTOR 

ANO  :0L U 1 I ON  OF  ThE 

SS 

4. 

c 

MATR I V EO. 

ss 

5 

c 

ss 

6 

COMMON  /SMAT/  S < 1 0 « 1 0 ) 

SS 

7 

DIMENSION  AfNROM.NCOL  ) • I *> « 1 » • 1 A C 1 > • rid) 

ss 

A 

COMMON  /SCRATw/  T I 1500) 

ss 

9 

COMMON  /MATPAR/  I C A SE . N8l Ox S . NPRL* . NL AST . NHL S YM, NPS VM , NLSfM 

ss 

10 

COMPLE*  A.A.f.SUM.s 

ss 

11 

NPE0*NO*?«MP 

ss 

12 

neo*n*  -»»m 

ss 

13 

IF  (NOP.EO.l)  GO  TO  11 

ss 

16 

IF  4N.FO.O.OR.M.EO.O)  GO  TO  6 

ss 

15 

00  1 Isl.NfO 

ss 

16 

1 

y 1 1 > *P  e J 1 

ss 

17 

MM  *2*MP 

ss 

IA 

I A*NP 

ss 

19 

IB«N 

ss 

20 

J*NP 

ss 

21 

00  S Msl.NOP 

ss 

22 

IF  iK.FOd)  GO  TO  3 

ss 

23 

00  2 1*1 *NP 

ss 

26 

I A* I A ♦ 1 

ss 

25 

J*J*1 

ss 

26 

2 

B( J)*V( I A > 

ss 

27 

IF  IK.FO.NOP)  GO  TO  5 

ss 

28 

3 

00  6 f*I.KK 

ss 

29 

IH=IB*1 

ss 

30 

J*J*1 

ss 

31 

6 

B( J)*V< IB) 

ss 

32 

5 

CONTINUE 

ss 

33 

6 

FNOP*NOP 

ss 

36 

FNORM*! ,/FNOP 

ss 

35 

c 

ss 

36 

C 

TRANSFORM  MATRIX  EO.  »«S  VECTOR  ACCOROING  TO 

SYMMFTRY  MOOES 

ss 

37 

C 

ss 

38 

00  10  I*1.NPE0 

ss 

39 

00  7 K=1.N0P 

ss 

60 

IA* I . (K-l ) *NPFO 

ss 

61 

7 

r (K)*B( IA) 

ss 

62 

SUM*  Y ( 1 > 

ss 

63 

00  A K*2*N0P 

ss 

66 

A 

SUM*SUM*Y  <K) 

ss 

65 

B < I ) *SUN*FN0RM 

ss 

66 

00  10  K*2.N0P 

ss 

67 

IA*I*|K-l>*NPEO 

ss 

68 

SUM*Y ( i j 

ss 

69 

DO  9 J*2 *NOP 

ss 

50 

9 

SUM*S'J»**Y(  J)«C0NJG<SI*.  J)  ) 

ss 

51 

10 

BdA)*SUM«FNORM 

ss 

52 

11 

IF  MCASE.LT. 31  GO  TO  12 

ss 

53 

REWINO  15 

ss 

56 

REtalNO  16 

ss 

55 

c 

ss 

56 

c 

SOLVE  EACH  MOOE  EQUATION 

ss 

57 

c 

ss 

58 

12 

00  16  MR*I«NOP 

ss 

59 

IA*(KK-1)«NPE0*1 

ss 

60 

IB*  I A 

ss 

61 

IF  (ICASE.NE.6)  GO  TO  16 

ss 

62 

00  13  7*1 »NPEO 

ss 

63 

13 

RE  AO  MS)  (A(  J.I).  J*1.NPE0) 

ss 

66 

IB*1 

ss 

65 

16 

IF  (ICASE.E0.3.0R.ICASE.E0.5)  GO  TO  15 

ss 

66 

CALL  SOLVE  (NPE0*A<!B.1).TPMA).R(TA).NR0«) 

ss 

67 

GO  TO  16 

ss 

68 

15 

CALL  LTSOLV  1 A.NPEO.NCOL • I X (I A ) .B ( I A)) 

ss 

69 

16 

CONTINUE 

ss 

70 

IF  (NOP.EO.l)  RETURN 

ss 

71 

C 

ss 

72 

C 

INVERSE  TRANSFORM  THE  MODE  SOLUTIONS 

ss 

73 

C 

ss 

76 

00  20  i*i.npeo 

ss 

75 

00  17  M*I.NQP 

ss 

76 

IA*tMK-l  )«NPFO 

ss 

77 

17 

Y (K  ) *B ( T A) 

ss 

78 

SUM*  Y M ) 

ss 

79 

00  18  *r*2»N0P 

ss 

80 

18 

SUM*SUM*Y(K) 

ss 

81 

BM)*SUM 

ss 

82 

00  20  <*2.N0P 

ss 

83 

I A* I ♦ (M-l ) *NPE  0 

ss 

86 

SUM*VM) 

ss 

85 

00  19  J*2.N0P 

ss 

86 

19 

SUM*SUM*YI J)*S(K. J) 

ss 

87 

20 

BMA)*SUM 

ss 

88 

IF  IN.FO.O.OR.M.EQ.O)  RETURN 

ss 

89 

00  21  1*1. NEO 

ss 

90 

I 
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vtn>nin 

KM*?*MP 

!A*NP 

IB»N 

J*NP 

00  25  « »1, NOP 
IF  (K.FQ.l)  GO  TO  ?} 

00  22  I*1.NP 

IA«IA*1 

J*JM 

B ( I A ) s v f j) 

IF  (K.FO.NOP)  GO  TO  2S 
00  2b  | * 1 • KK 

!B*  l §•  1 
J*J*l 

8<10l*Y(Jf 

CONTINUE 

RETURN 

END 


SUBROUTINE  SUBI  (NP.A.NQP* fP.NI 


SU«1  IS  USED  F0»  TmE  OUT  OF  CORF  SYMMETRY  CASE  WHEN  TMf  NP*NP 
SUBMATRIX  FITS  IN  COR*.  IT  CALLS  FACTR  NOP  TIMES 

COMMON  /PESTRT ✓ lCl.lC?.IC3*NREStNPRES.lBLCK*10UMP.TM0UM,6XTlM 
01  MENS tON  A(NP.NP).  Io(N) 

COMPLFH  A 
NCl*!C?*l 

IF  (IC>.EO.O»  GO  TO  3 
IF  (IC2.E0.N0P)  GO  TO  7 
00  2 J«1 • JC2 
00  1 K«1.NP 

READ  (13)  (A( J.K) • jsl.NP) 

READ  U5>  (A(J.K)  • J*l  ,NP) 

CONTINUE 

CONTINUE 

CONTINUE 

00  6 KK*NCl*NOP 

00  b 1*1. NP 

READ  03)  (A(  J.I)  .j*l,NP> 

KA*(KK-1)*NP*1 

CALL  FACTR  (NP.A.IP(KA) ,NP) 

no  5 1*1 .NP 

WRITE  (IS)  (A(J.I) ,jsi .NP) 

IC2*KK 
CALL  CMKPBT 
CONJIHVE 
REWIND  IS 
RETURN 
END 


SUBROUTINE  SUB2  ( A ,NP .NCOtS »NOP . JP • 1 X .N ) 

SUB2  IS  USED  In  The  OUT  OF  COPE  SYMMETRY  CASE  WHEN  THE  NP*NP 
SUBMATQlX  DOES  NOT  FIt  IN  CORE.  IT  CALLS  FACIO  AnO  LUNSCR  NOP 
TIMES. 

COMMON  /RESTPT/  1 C 1 * IC2. IC3.NRFS.NPRES. IBLCK* I0UMO.TM0UM.EXT IM 
COMMON  /MATPAR/  ICASE .NBLOKS.NPBLK.NLAS? .NflLSYM.NoSVMsNLSVM 
0 1 MENS  I ON  A (NP.NCOl  S) • IP(NP).  TX(N) 

C0MPLE*  A 

NBLOKSsNBLSYH 

NPflLK*NPSYM 

nlast*hlsym 

I2»2*NPBLK*N° 

NC|*IC2*l 

IF  ( IC2.EO.O)  GO  TO  2 
IF  (IC2.E0.N0P)  GO  TO  B 
00  1 1*1. IC2 

call  BLCKIN  (lltl.l2.NBLOKS.lRO) 

CALL  BLCKIN  (1S.1.!2.NBL0KS*1<J1) 

C All  BlCFIN  f 16.1  .I2.nBL0KS.192) 

CONTINUE 
GO  TO  * 

CONTINUE 

IF  (tn.EQ.-l)  GO  TO  A 
00  S «»*1.N0® 

00  * L • I *NML  0*  S 
IF  U,EO.MH.O«S)  J2*Nl  AST 
90  I ♦*!  • J2 

MaO  (ill  iA<i.jl.|«t.NPi 
CA^l  0|fwNT  Ut.I.U.l.HU 

lf»M» 

|| 


r 


REwINO  is 

S2 

44 

REWIND  16 

S? 

45 

I C 3*  — 1 

S2 

46 

A 

RFTURN 

S2 

47 

ENO 

S2 

4.8- 

SUBROUTINE  TE^T  (F l W .F 20 • TO ,F 1 I .F 2 I • T I ) 
IF  (ARS  <F?R)  .f»T.ABS<F?I  ) ) GO  TO  1 

TE  1 

TE  2 

0EN*F7I 

TE  3 

GO  TO  ? 

TE  4» 

1 

0EN-F2R 

TE  S 

2 

IF  (ABSIOEN)  .1  T.l.E-37)  GO  TO  3 

TE  6 

TRsABSf <F1R-F?R) /DEN) 

TE  ? 

T I = ABS  ( (FU-F?I)/OEK) 

TE  8 

RETURN 

TE  9 

3 

TR=»0  • 

TE  10 

T I a 0 • 

TE  11 

RETURN 

TE  12 

f NO 

TE  13- 

SUBROUTINE  TRIO  < J. JCOl • JC02.0II .DIM 

TR 

1 

C 

TR 

2 

C 

SUBROUTINE  TRIO  DETERMINES  WMICm  SFGmEnTS  ARE  CONNECTED  TO  SEGMENT 

TR 

3 

C 

J.  SUBROUTINE  JUNC  IS  CALLEO  TO  FILL  COMMON/ JUNK / FOR  MULTIPLE 

TR 

4 

c 

JUNCTIONS. 

TR 

5 

c 

TR 

6 

COMMON  /OAT A/  LD.NtNP.M.MP.AUOQO)  . T (1 000 ) . 7.  < 1 000 ) • S I ( I 000  1 • B I ( 1 00 

TR 

7 

10) .ALP (1000) .BET ( 1000) .ICONl ( 1000) .1  COM2 <1000) .ITaG(lOOO) .wLAM.IPS 

TR 

8 

2TN 

TR 

9 

COMMON  /JUNK/  NCOX « jOx ( 25) .NCI  * • JI X <2S) .NCOZ. JOZ <?5) *NC1Z* JlZ (2S) 

TR 

10 

S*SI < J) 

TR 

11 

JC01* ICONl  ( J) 

TR 

12 

JC02*IC0N2( j) 

TR 

13 

IF  IJCon  1.2.3 

TR 

1* 

1 

CALL  JUNC  ( J.JCOI.NCOx. JOX.NCIX.JIX.DIL) 

TR 

15 

GO  TO  S 

TR 

18 

2 

OlL*S/?.0 

TR 

17 

GO  TO  S 

TR 

18 

3 

IF  (JC01.LT. 10000)  GO  TO  4 

TR 

19 

OlL*S 

TR 

20 

GO  TO  S 

TR 

21 

4 

OIL* (Si ( JCOl) *S)/2.0 

TR 

22 

5 

IF  ( JC02 ) 6.7.B 

TR 

23 

6 

CALL  JUNC  (J.JC02.NC07* JOZ.NCIZ.JI7.DIK) 

TR 

24 

GO  TO  10 

TR 

25 

7 

OIK*S/2.0 

TR 

26 

00  70  J 0 

TR 

27 

8 

IF  (JC02.LT. 10000)  GO  TO  9 

TR 

28 

OlK*S 

TR 

29 

60  TO  10 

TR 

30 

9 

01K*(SI <JC02»*S>/2.0 

TR 

31 

10 

CONTINUE 

TR 

32 

RETURN 

TR 

33 

END 

TR 

34- 

SUBROUTINE  UDOTES  < I 1 . I 2 .CM .NRQw.NCOL ) 

UO 

1 

C 

uo 

2 

C 

computfs  e fielo  along  wires  due  to  surface  currents  and 

FILLS 

UD 

3 

C 

APPROPRIATE  MATRIX  ELEMENTS 

UO 

4 

C 

UD 

5 

COMMON  /DATA/  LO.N.NP.M.MP.X ( 1000) .Y ( 1000) .Z < 1000) .SI < 1000) .81 ( 100 

UD 

6 

10). ALP (1000) .BET (1000). ICONl (lOOO).lCON2UOOO)« IT AG(1000).WLAM. IPS 

uo 

7 

2YM 

UO 

8 

COMMON  /AN6L/  SALP(IOOO) 

UO 

9 

COMMON  /GNO/  ZRATI .ZRaTI 2 *CL .Cn.SCRWL .SCRwR .NRAOL .KSYMP . 

IFAR.IPERF 

UO 

10 

COMMON  /DAT!/  T1 X I , T1 Y ! ♦ T 1 ?! .Tpx I * T? Y I . T22 1 .X I , V I .7 1 

UO 

11 

DIMENSION  CAB ( 1 ) . SAB ( 1 ) . CM (NROW.NC0L ) 

UO 

12 

DIMENSION  T 1 X ( 1 ) ♦ T1Y(1),  TlZ(l).  T?X(1).  T2Y(1).  T2Z(1) 

. X$( 1) • Y 

UD 

13 

1S(I).  75(1).  S<1).  EMfL (9) 

UD 

14 

EQUIVALENCE  CTIX.SI).  (TIY.ALP).  ( T 1 Z .RET ) . (T2X. ICONl). 

(T2V.ICON 

UO 

15 

12).  (T77.ITAG).  (XS.X).  (YS.Y),  (7S.7).  (S.Bl) 

UD 

16 

EQUIVALENCE  (CAB (l).A(P(l)).  (SAB ( l ) .BET ( 1 ) > 

UD 

17 

COMPLEX  E1X.E1Y.E1Z.E?X.E2y.E2?,CM.EMEL 

UO 

18 

COMPLEX  ZRATI. ZRAT12 

UO 

19 

IF  (II.GT.NP)  RfTURN 

UD 

20 

I £ NO  * 1 2 

UD 

21 

IF  (I2.GT.NP)  IEND*NP 

UD 

22 

K*(J 

UD 

23 

NOPwM/mP 

uo 

24 

I C 60*1 

UO 

25 

C 

OBSERVATION  loop 

UD 

26 

DO  6 I«I1.1END 

UD 

27 

K*K  ♦ 1 

UO 

28 

X!*X(!| 

UD 

29 

Y I *Y  ( I ) 

uo 

30 

2I*Z ( t ) 

UO 

31 

CAB1*CAB(  I) 

I/O 

32 

SAB  I *SAB  ( I ) 

UO 

33 

salpi*salp»d 

uo 

34 

JS*LO*J 

UD 

35 

IPCM*0 

JO 

36 

IF  (ICONl  (I)  •(  T.  10000)  GO  TO  1 

UO 

37 

IPCM*KONl  (D-IOOOO 

UO 

38 
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IPCH.JS-IPCM 

UO 

30 

fsign— i. 

UO 

40 

1 

IF  IJCnhUJ)  .IT.  10000)  GO  TO  2 

UO 

4| 

IPCM«1CDN2(1)*10000 

UO 

42 

IPCH-JS-IPCH 

UO 

43 

rsiGw-1. 

UO 

44 

c 

source  loops 

UO 

45 

2 

00  6 L*l*NOP 

UO 

44 

JL«LPINP*2*MP)-2*Mp 

uo 

4T 

00  6 1*  1 *HP 

l»0 

44 

uo 

49 

JL«JL«P 

uo 

SO 

TlXUTlX(JS) 

uo 

SI 

TlVtMlVl  JSI 

uo 

52 

T2*I»T2*(JSI 

uo 

S3 

T2T I»T?V  (JS) 

I/O 

54 

CM< 

uo 

SS 

CM(JL*«t«<0**0.l 

UO 

56 

RFL*-I. 

uO 

5? 

C 

GROUND  LOOP 

uo 

58 

DO  6 IP«|.«STMP 

uo 

59 

RFl»-RFl 

uo 

60 

TlZIsTfZ(JS)  *RFL 

uo 

61 

T2ZIM2T4 JSJPRFL 

uo 

62 

ir  (IPch.ne.Js.ano.ICgo.eq.I)  r»n  to  4 

uo 

63 

IF  (IP.CQ.2)  GO  TO  4 

uo 

64 

IF  ( IC60.GT • 1 > GO  TO  7 

UO 

65 

CALL  PCINT  <IS<JSl*VS(JS)*7SUS).SUS)*CAf)I.SA8|«SALPIt£N£U 

uo 

66 

IL*I*2*NP*IL-1 ) 

uo 

67 

CN(IL«K>*CM(Il«K)»EMCi (9)«F$IGu 

UO 

68 

3 

CNIJL-1.FI«£NELUCG0) 

uo 

69 

CMf jl#k)«CwCL(ICG0*4) 

uo 

70 

ICGOafCGO* 1 

vo 

71 

IF  (ICG0.C0.5)  ICGO* 1 

uo 

72 

GO  TO  5 

uo 

73 

4 

25EP«2l-ZSI JS)«RFL 

uo 

74 

CALL  UNEBC  (*I.»S(jS)  .vi.rSIJSI  .ESEP.S(JSt.tU>U».tlJ.t*«^i».(?Z  UO 

75 

1) 

uo 

76 

CM(  JL-l*W)MElX*CABl*Fir*SA01*ElZPSALP!)»RFL*CN«Jfl»«> 

uo 

77 

CM(  JL*«>»(E2X*CABI*E2v»SA9l*E27«SAlPI)«RFL*CMUi#«<) 

uo 

78 

5 

CONTINUE 

uo 

79 

6 

CONTINUE 

uo 

•0 

RETURN 

uo 

81 

ENO 

uo 

•2- 

SUBROUTINE  UNCAT 

UN 

1 

C 

UN 

2 

c 

UNCAT  READS  EftC  17  A«0  SETS  UP  FILES  11-14  FOR  RESTART  IMG  PROCRAM  UN 

3 

c 

UN 

4 

COMMON  CM ( 4000 1 

UN 

s 

COMMON  /RCSTBT/  ICl*IC2*lCl*N»FS*NPReSt!»LC**!0U»P«TN0UM«£AT!N 

UN 

6 

COMMON  /SAVE/  I * < 1 S00  > * IP  C 1 500 ) 

UN 

7 

COMMON  /MATPAR/  ICASC •NBLOKStNPRL* *NLAST •NBLSTM«NPSVM»NLSTM 

UN 

• 

01 ME NS I ON  ITI71 

UN 

9 

comple*  cm 

UN 

10 

LOGICAL  ENF  v 

UN 

II 

EQUIVALENCE  <N«NRfS>«  <NP*NPR£S)*  (!2*!91C«I 

UN 

12 

OAT  A UT<!>«!«1.7>/11.12.13.U.1S.16»17/ 

UN 

13 

00  1 I * 1 • 7 

UN 

14 

NUN I T ■ I T ( I ) 

UN 

15 

1 

REMIND  NUNIT 

UN 

16 

READ  (17)  IC1.IC2«1C3.N«NP.I2*KASE 

UN 

17 

READ  (17)  IX (1 ) 

UN 

18 

IF  (CNF (17))  GO  TO  2 

UN 

19 

2 

CONTINUE 

UN 

28 

IS1 X*6 

UN 

21 

IF  (ICASE.E0.4)  IS I X* 1 

UN 

22 

00  5 I « 1 .ISI* 

UN 

23 

NUN  IT«IT(D 

UN 

24 

NE0F-777 

UN 

25 

IFLCNT*0 

UN 

26 

3 

CALL  BLCFlN  (17.1,12.1-NEOF) 

UN 

27 

IF  (NEOF.EO.O)  GO  TO  4 

UN 

28 

CALL  BLCKOT  (N'.JNI  T • 1 • T2*  1 • 2 > 

UN 

29 

iflcnt*iflcnt*i 

UN 

30 

GO  TO  3 

UN 

31 

4 

ENO  FILE  NUNIT 

UN 

32 

PRINT  12*  IFLCNT. NUNIT 

UN 

33 

5 

CONTINUE 

UN 

34 

IF  (ICASE.NE.4)  GO  TO  10 

UN 

35 

!FtCNT*0 

UN 

36 

6 

RE AO  (171  (CM(I)«I*1#NP> 

UN 

37 

IF  (ENF (17))  GO  TO  7 

UN 

38 

WRITE  (13)  (CM(!),!*l,NP> 

UN 

39 

iflcnt*iflcnt*i 

UN 

40 

GO  TO  6 

UN 

41 

7 

ENO  FIIC  13 

UN 

42 

PRINT  12*  IFLCNT • 1 T ( 3) 

UN 

43 

iflcnt*o 

UN 

44 

8 

READ  (17)  (CM(I) «I*1*NP) 

UN 

45 

IF  (ENF (17))  GO  TO  9 

UN 

46 

WRITE  (15)  (CM( I ) • 1*1 »NP) 

UN 

47 

iflcnt*iflcnt*i 

UN 

48 

GO  TO  A 

»IN 

49 

9 

ENO  FILE  15 

UN 

50 

PRINT  12*  IFLCNT. IT(5) 

UN 

51 

IFLCNT*® 

UN 

5? 
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c 

10 


IIN  S3 

CONTINUE  UN  56 

READ  (17)  (M(I).I*1.N)  UN  55 

WE AO  ( 1 7 1 < IP< I) ,I*1.M)  UN  56 

00  H 1*1.7  UN  57 

NUNIT*TT(I)  UN  58 

11  WE W I NO  NUN I T UN  59 

RETURN  (IN  60 

C UN  6 1 

12  FORMAT  (/.IS.2RH  FILES  RETRIEVFO  FPOM  UNIT  *15/1  UN  62 

ENO  UN  63- 


SuRROUTInE  UNERF  (RX.QV.RZ.S.fc U*E1V,E1Z.E2X.E2V.F22)  UE  1 

C ...  UE  2 

C CALCULATES  the  ELECTRIC  field  Due  to  UNIT  CURRENT  IN  The  T | and  T2  UE  3 

C DIRECTIONS  ON  A PATCH  UE  6 

C • UE  5 

COMMON  /OAT  I / TMI.T1yI.T17I«T?kI,T2yI.T?71.XI.v1.7I  UE  6 

COMPLEX  ER.Ql.02.EM.Flr.ElZ.E2ir.e2v.F22  UE  7 

DATA  TPI, CONST/6. 283MS31, 6. 7/1  1<*12/  UE  8 

C C0NST*FTA/<8. •?!••*)  UE  9 

R2*RX«RX.RV»Rr*RZ#RZ  •*  UE  10 

R*S0RT(R2>  UE  11 

Tl*-TPf«R  UE  12 

T2*T1«T1  UE  13 

RT*R2*fi  UE  16 

ER*CMPl*  (SINU1  1 «-COSr  Til  )*(CONST*S)  UE  15 

01«CMPLXIT?-1..T1»*ER/»T  UE  16 

Q2*CMPl*(3,-T2.-3.*TI»*ER/|RT*«?»  UE  17 

ER*02»rTMI#RX*Tlri*Rv*TlZl*W7»  UE  18 

CM"01M1XI.£R*PX  UE  19 

E1V«0MT1VI*EP*RT  UE  20 

E17*0MTIZMER*RZ  UE  21 

ER*Q2«rT2xr*RX.r2VMRr«T2?MRZl  UE  22 

E2X*QMT2XI*ER*RX  UE  23 

E2Y*0MT2YI*ER*RY  UE  26 

E27*OMT2ZI*ER»RZ  UE  25 

RETURN  UE  26 

ENO  UE  27- 


1 


SUBROUTINE  WIRE  (XMl.rwl./wl.«W?.Y«2.7w2.RAD.NS.TTG)  Wl  1 

C Wl  2 

C SUBROUTINE  WIRE  GENERATES  SEGMENT  GEOMETRY  DATA  FOR  A STRAIGHT  Wl  3 

C WIRE  OF  NS  SEGMENTS.  wl  6 

C Wl  5 

COMMON  /DATA/  LO.N.NP.M.MP.X ( 1000) ,Y ( 1000) .Z ( 1000) .SI ( 1000) ,BI ( 100  Wl  6 

10 1 f HP <1000 1 *R€T<lOOOl  'lCO\lllOOO)<lCO»2nOOO>tlJJ>GnDDO>  .WLAM.JPS  Wl  7 

2VM  wl  6 

DIMENSION  X 2 ( 1 > . V2(l).  72(1)  Wl  9 

EQUIVALENCE  (X2(l ) .SI (1 ) ) . ( Y2 ( 1 ) . Alp ( 1 ) ) • (22(1) .RET (l) ) wl  10 

IST*NM  Wl  11 

N*N*NS  Wl  12 

NP«N  Wl  13 

MP*M  Wl  16 

IPSYM*0  Wl  15 

IF  (NS.LT.l)  RETURN  Wl  16 

FNS*NS  Wl  17 

X0*(XW?-XW1 l/FNS  wl  18 

Y0*(VW?-VW1 l/FNS  Wl  19 

ZD* (ZW2-ZW1 I /FNS  Wl  20 

XS1*XW1  Wl  21 

YS1*YW1  Wl  22 

751 *ZW1  Wl  23 

00  1 MIST.N  Wl  26 

ITAG(I)*ITG  Wl  25 

XS2*XS1*XD  Wl  26 

YS2*YS1*YD  Wl  27 

ZS2*ZS 1 *ZD  Wl  28 

XUMXSl  Wl  29 

Y ( I ) *YS 1 Wl  30 

Z ( I ) *7Sl  Wl  31 

X2(I)*XS2  Wl  32 

Y2(I)*VS2  Wl  33 

Z2(I)*7S2  Wl  36 

BI(I)*RAO  Wl  35 

XS1«XS?  Wl  36 

YS1*YS2  Wl  37 

1 ZS1*ZS2  Wl  38 

RETURN  Wl  39 

end  wl  60- 


COMPLE*  FUNCTION  ZINT (SIGL.POLAM)  ZI  I 

C ZI  2 

C ZINT  COMPUTES  THE  INTFRNAL  IMPEDANCE  OF  A CIRCULAR  WlRF  ZI  3 

C ZI  6 

COMPLEX  TH.PH.F.G.F J.CN.BR1 »BR?  ZI  5 

OATA  PI. POT. TP. TPCMu.fMOTP.Fj.CN/3. 1615926. 1.5707Q63.6.2831853. 2. 3 ZI  6 
168705FO. 60. 00*(0..1.).(. 70710678, .70710678)/  ZI  7 

TH (D)  * ( ( I ( ( (6.E-7.1  .9F-6MDM-3.6E-6.5.1E-6)  ) »0* (-2.52E-5.0. > MOM  ZI  8 
l-9.06E-5,-9.0!E-5M*D.(0. .-9. 76SE-6) ) *0* ( . 0 1 1 0686. 0 1 1 0685) ) *D* 1 0 ZI  9 
2. ,-.3926991)  ZI  10 

PH(D)*(  ( ( ( ( (1.6F-6.-3.2E-M»D*(1.17E-B,-2.6E-6))*rM3.66E-5.3.38E-  71  H 
15)  MOMS. E-7. 2. 652F-6)  MO*  (-1.381  3F-1.1  .3811 E-3)  MO*  (-6.2500 IE-2.-  71  12 
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2 

3 


r «oi  «so«t  <»ot/oi  »eci»  i -c*ap*?*<  ••«'*»  i II 

0<0»«l.'SO*T(tr*0»«Cf  «^<cwo*tmi«./iu  91 

MSQIT(!»CIIUtsmiMOt«N  II 

ir  u.r.T.no.i  co  to  > ii 

IF  M JO  I II 

*»■/••  21 

WJ  II 

*»V«¥  II 

NMH  « I II 

it 

•et«(f  H<<|#|399C-9aS**9|l9394?taS*#S2ft9S9|Sl9f»|99S*f9S9ta*«y|#9|  ii 
lV?TVI»V||)(llV?l)«S«U*t*V  II 

imiacim.iiMii.9eii  ll 

ll 

M I • 1 1 1 1 1 f 4.  909€  •*•*-  ».  793*9*  7II4I  H*|,  3)  I Ml  I 1 1 .37  II 

II 

99IaCMPL«IBC9«MII  IK 

•B)>99l/tftl  It 

60  TO  1 II 

Wla6m«fj«fm/Pi  II 

gm«oui*9mav/R»-r  jar  m*PM(.ii9/aw9i  II 

0»|a§9|/991  II 

60  TO  3 II 

9*1-<«7971997*.-.70?10979I  II 

lhT>Tj*SMTirM0T7/SlriL)M«|/8ALM  It 

ar.ru*n  II 

CMO  II 


I) 


I* 

IT 

»• 

19 

19 

II 

II 

II 

19 

IS 

19 

IT 

19 

19 

19 

31 

32 

33 


91* 
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